MMM MMM GGGGGGGGGGGG 
MMM MMM GGGGGGGGG6GGG 
MMM MMM GGGGGGGGG6G6GG 
MMMMMM = MMMMMM =6GGG 

MMMMMM = MMMMMM =6GGG 

MMAMMM =6MMMMMM =6GGG 

MMM 6 MMM = =OMMM «GGG 

MMM = 6MMM =O MMM «GGG 

MAM = 60OMMM = OMMM «GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG 

MMM MMM GGG G6GGGGGGGG 
MMM MMM GGG 666666666 
MMM MMM GGG 6GGGGGG6GG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGG GGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 
MMM MMM GGGGGGGGG 


C 12 


AAI I tH A tS 
AAA tt tt HH tS tH 
tt tt a St SH Se 


L 

LLELLLELLLLLLLLL 
LLLLLLLLLLLLLLL 
LELLLLLLLLLLLLL 


FE a ee a a el el el el el 


SN 
Ro ono 


**F TLE®*1D**SMGUSRTRM 


ond 


SSSSSSSS MM MM GGGGGGGG UU UU SSSSSSSS RRRRRRRR TTTTTTTTTT RRRRRRRR MM MM 
SSSSSSSS MM MM GGGGGGGG UU UU SSSSSSSS_ RRRRRRRR TTTTTTTTTT RRRRRRRR MM MM 
SS MMMM MMMM GG UU UU $$ RR RR TT RR RR MMMM MMMM 
S$ MMMM MMMM GG UU UU SS RR RR TT RR RR MMMM MMMM 
$$ MM MM MM GG UU UU SS RR RR TT RR RR MM MM MM 
SS MM MM MM GG UU UU SS RR RR TT RR RR MM 
SSSSSS MM GG UU UU SSSSSS RRRRRRRR TT RRRRRRRR MM MM 
SSSSSS MM MM G UU UU SSSSSS RRRRRRRR TT RRRRRRRR MM MM 
SS MM MM GG GGGGGG UU UU SS RR RR TT RR_ RR MM MM 
SS MM MM GG GGGGGG UU UU SS RR RR TT RR RR MM MM 
SS MM MM GG UU UU SS RR RR TT RR RR MM MM eoee 
SS MM MM GG UU UU SS RR RR TT RR RR MM MM eoee 
SSSSSSSS MM MM GGGGGG UUUUUUUUUU S_ SSSSSSSS RR RR TT RR RR MM MM cece 
SSSSSSSS MM MM GGGGGG UUUUUUUUUU Ss SSSSSSSS RR RR TT RR RR MM MM cove 
LL IIIT] 
LL III] 
LL II SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] S$ 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL IIIII1 SSSSSSSS 
LLLLLLLLLL III! SSSSSSSS 


D1 


SMGSINTERFACE_TERM_TABLE = User Interface to Te 19=300- 138% 01:33:4 AX-11 Oi legen v4.0- 
14-Sep-1984 13:10:0 SMGRTL.SRCJSMGUSRTRM 
ZTITLE "SMGSINTERFACE_TERM_TABLE = User Interface to Termtable' 
MODULE SMGSINTERFACE_TERM_TAB 
{DENT = 'T-00 ! File: SMGUSRTRM.B32 Edit: STAN1005 
BEGIN 
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i COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


® 
® 
oa 
* 
® 
i THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
iw ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
iw INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ix COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ix OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
*® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
iw AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
i CORPORATION. . 
® 
® 
® 
* 
* 
® 


ie DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


it 
Ye RRR RRR EERE EERE EEE REE 
' 


FACILITY: Screen Management 
ABSTRACT: 


This module contains routines which return device-specific 
information about terminals, including, but not 
Limited to, the proper character sequences to perform 


' 

i] 

i 

i 

i 

i 

i 

sundry functions. 

ENVIRONMENT: User mode, Shared Library routines. 
AUTHOR: P. Levesque, CREATION DATE: 9-Nov-1983 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
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i MODIFIED BY: 


1-005 = Remove use of FNM= construct which produces code that 
is not appropriate for use within a shared image. 
STAN 18-Mar-1984, F ; 
1-004 - When fetching the terminal Sype from a private section, 
‘unbias* the number. PLL 22-Feb-1984 
1-003 = Allow shared use of private sections. STAN. 14-Feb-1984. 
i 2 - Allow positive terminal types. STAN. 8-Feb-1984. 
1-001 = Original. PLL 9-Nov-198 
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‘ 
. 

: 

or 


ef 05 XSBTTL ‘Declarations’ 

9 z 88 i SWITCHES: 

20 ! 

: 

6 ! LINKAGES: 

64 : 

65 ! NONE 

66 ' 

of INCLUDE FILES: 

69 , 

A REQUIRE ‘SRC$:SMGPROLOG'; ! defines psects, macros, etc. 
Jee? LIBRARY ‘RTLML:SMGTPALIB'; ! TERMTABLE macros, defs, etc 

74 : 

oe TABLE OF CONTENTS: 

77 : 

8 FORWARD ROUTINE 

80 SMGSINIT_TERM_TABLE Setup term table for future calls 


LE, 
SMGSINIT_TERM_TABLE_BY_TYPE, 


SMGSGET_TERM_DATA 
SMGSDEL~TERM_TABLE, 


MAP_PRIV_SECTION, 
MAP_GBL_SECTION, 
SEARCH_FOR_TERM_DEF , 
SEARCH_FOR_TERM_DEF _BY_TYPE, 


DECODE_ARITH_STRING; 


Same as above except input is 
device type instead of device name 
Get terminal characteristics 
Delete term table 


' Map private TERMTABLE.EXE as a 
! temporary section ; 

Map to system TERMTABLE.EXE in 

lobal section . 
earch an index for a given terminal 
name 
mesg an index for a given terminal 

e 

btede arithmetic data 


MACROS: 


RACRO S$BIAS_TYPE_NUMBER (TERM_TAB, TYPE, LENGTH, BUFFER) = 
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' 
; If this definition is from a private table, terminal type 

: numbers must be biased so that thoy are in the range -65 to -127. 
: (Note that this bias can't be appt ed at compile time because it's 
not known whether the table will be mapped privately or globally.) 
' 
f 
! 


Since we can't modify the type number in the definition (the section 
ss cose only), we must copy the type number directly into the user's 
uffer. 


fom lolol ele ele lel ele ale ol elo ol ealeolelalelalolelelolelalelelolelololelolelolelolelolal ola lel alo olelolojlololelolo mm) 
a ND te ae ce ee ee et ee ee a ed aD a a ed ad a a a od od od od dd SOOO OOO OOOOO 


©€9C009 09 09 08 09 00 09 09 SI NINN NSS SN DD DDD DADA AD TUT UT PAPO OOO ur 
ee ee ee ee ee ee ee a a ee a ee ek ee a a ee ee ae a a ee ed ad dd 


. 
° 
° 
. 
. 
ee 
© 
° 
“. 
° 
. 
. 
. 
aa 
& 
. 
° 
+ 
o 
. 
° 
.* 
. 
. 
a 
. 
ee. 
ar 
. 
oN 
’ 
° 
° 
. 
° 
7 
° 
. 
e 
. 
eo 
. 
° 
. 
o 
. 
’ 
. 
e 
. 
e 
. 
x2 
. 
° 
. 
° 
~ 
e 
© 
e 
+ 
° 
. 
e 
* 
. 
. 
. 
’ 
© 
° 
. 
° 
7 
© 
. 
° 
. 
s 
. 
° 
~ 
e 
. 
° 
. 
e 
. 
a 
. 
* 
. 
° 
° 
e 
. 
o 
. 
e 
” 
e 
. 
Sd 
. 
. 
. 
oa 
7 
’ 
. 
° 


o> OOOO VOO OVO OO OOO BOOWOOWwom 
HAO SS RAR OOO NOME DODO WO Ruano 


Oe ek el lt ae a ed et ed ed a 
cee eRe EE EEE eS I 


OCONOULS WIS 


Ww 
ie 7 
p42 


e-. 
iba SMGSINTERFACE_TERM_TABLE = User Interface to Te 16-Sep-1984 94:33:68 AX-11 Bliss-32 
eclarations 14-Sep-1984 13:10:0 SMGRTL. SRCISMGU 


1 BIAS_TYPE; 
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+ 

! Compare the terminal definition address with the starting address of 

! the private section. If there is no private section or the terminal 
definition is at a lower address, then this must be a global definition. 
BIAS_TYPE = TYPE; ! init to no bias 


IF .PRIV_SECTION_ADDR NEQ 0 AND 
TERM_TAB GEQ PRIV_SECTION_ADDR 


+ 
' Don't bias the type of a DEC terminal (which will have 
a positive number). 
if TYPE LSS 0 
BIAS_TYPE = .BIAS_TYPE + K_PRIV_TYPE; 
CHSMOVE (LENGTH, BIAS_TYPE, BUFFER); 
! put in the user's buffer 
ENDZ; 
MACRO SUNBIAS_TYPE_NUMBER (TERM_TAB, TYPE) = 
BEGIN 


pare the terminal definition address with the on address of 
private section. If there is no private section or the terminal 
inition is at a lower address, then this must be a global definition. 


IF .PRIV_SECTION_ADDR NEQ 0 AND 
rHenern- TAB GEQ 7PRIV_SECTION_ADDR 


1+ 


i Don't bias the type of a DEC terminal (which will have 
a positive number). 


if .TYPE LSS 0 
THEN 
TYPE = .TYPE = K_PRIV_TYPE; 


i Com 
! the 
' def 
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1+ 
! Some string capabilities expect parameters. If the caller does not 
é supply any parameters, we default them to 1's. The caller must supply 
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5 : all or none of the parameters. | 
" MACRO S$CHECK_SUFFICIENT_USER_ARGS = | 
65 4 IF NOT NULLPARAMETER (INPUT_ARG_VECTOR) 
7 M IF_.INPUT_ARG_VECTOR CO] NEQ 0 | 
68 N THEN 
69 8 BEGIN 
70 4 IF .INPUT_ARG_VECTOR CO] NEQ .SMGSSNUM_PARAMS C..REQUEST_CODE) 
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1 Literals used in various routines 


1 
1 
LITERAL 
K_MATCH = 0, 
K-OFF = 0, 
K_ON = as 
K_PRIV_TYPE = -65; ' private types are -65 to -127, 
i System types are -2 to -64 


EXTERNAL REFERENCES: 


EXTERNAL ROUTINE 
SMGS$SNUMBER_PARAMETERS, 

sre $COPY 

STRSCASE “BLIND_COMPARE; 


init # params for cap 

copy source string to “destination 
compare 2 strings without 

regard for upper/lower case 


Cac$ _WRONUMARG, wrong number of arguments 


Termtable Id Mismatch 


SMGRTL.SRC SMGUSRTRM. if 2;1 


Ss RT 
SMGS$_ INVREQCOD, 


Undefined terminal name 

Undefined terminal type 

Private terminal table used 

System terminal table used 

Undefined terminal - no private termtable 
Undefined terminal - no system termtable 
Invalid Termtable 

Invalid request code 
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SMG$_FATERRLIB, 
SMG$_NO_ARGS; 


Fatal error in Library 
No arguments to substitute 
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! EXTERNA 
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1 

1 

1 

1 
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1 

1 

1 

1 EXTERN 
1 
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SMGSSNUM_PARAMS : VECTOR C,BYTE); 
' number of parameters for each string cap 
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FACE_TERM_TABLE = User Interface to Te tb-se 1984 01:33:4 AX-11 Bliss-32 V4.0- 
TERM_TABLE = Initialize terminal tabl 1 ~8ep-19 4 93:73:08 SMGRTL.SRCISMGUSRTRM 
XSBTTL "SMGSINIT_TERM_TABLE = Initialize terminal table’ 
GLOBAL ROUTINE SMGSINTT_TERM_TABLE ( 


_TERM_RA 
P-TERM~ TABLE ds 


+e 
FUNCTIONAL DESCRIPTION: 


copy of TERMTABLE.EXE, and if this 

(in global section SMGSTERMTABLE) is used. TE 
prev ey have been created by compiling TERMTABLE.TXT. The address 
Ji te y this routine is used as an input to SMGSGET_TERM_DATA, 
which fetc 


: CALLING SEQUENCE: 


ret_status.wlc.v = SMGSINIT_TERM_TABLE (P_TERM_NAME.rt.dx 
P~TERM_TABLE.wa.r 


FGRMAL PARAMETERS: 


P_TERM_NAME Name of the terminal = must be 
an entry in TERMTABLE.EXE 
P_TERM_TABLE Address of the table created 


Contents of general terminal capabilities file. 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 
SMG$_PRISECMAP success - definition found in private TERMTABLE 
SMG$_GBLSECMAP success - definition found in global TERMTABLE 
SMG$_UNDTERNAM undefined terminal name 
SMG$_UNDTERNOP undefined terminal - no private terminal table 
SMG$_UNDTERNOS undefined terminal - no system terminal table 
RMS errors 

SIDE EFFECTS: 


1 

i 
i 
i 

' 

' 

i 
i IMPLICIT INPUTS: 
t 

i 
i 


L 
FOUND : INITIAL (1), 
TMP_TERM_DEF 
PREV_AST-STATE, 


PRIV_STATUS : I 
GBL_STATUS : IN 


flag to indicate term def found 
temp. place to store def addr 
retd by SSETAST to indicate AST 
delivery was enabled or disabled 
status retd BY MAP_PRIV_SECTION 
status retd by MAP_GBL_SECTION 
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NITIAL (1), 
ITIAL (1), 
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status to return to caller 
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RM_TABLE = User Interface to Te 1 
LE = Initialize terminal tabl 1 
1 


RET_STATUS : INITIAL (1); 
SSMGSVALIDATE_ARGCOUNT (2,2); 
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' 
! First we look for a private copy of TERMTABLE.EXE. If 
! PRIV_SECTION_ADDR is already set, then we don't need to map 
the section again. 
PREV_AST_STATE = SSETAST (ENBFLG = K_OFF); ! disable ASTs while setting addr 
IF .PRIV_SECTION_ADDR EQL 0 


PRIV_STATUS = MAP_PRIV_SECTION (); 
! map priv section if possible 


if -PREV_AST_STATE EQL SS$_WASSET 
SSETAST (ENBFLG = K_ON); ' re-enable ASTs 
'¢ 
See if the requested terminal definition is in the private section. 
IF .PRIV_SECTION_ADDR NEQ 0 
THEN 
BEGIN 
! This routine will search the entire terminal index. 
FOUND = SEARCH_FOR_TERM_DEF (.PRIV_SECTION_ADDR, .P_TERM_NAME, 
TMP_TERM_DEF); 
AF ada = SMG$_PRISECMAP; 
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1+ 
! If there was no pr svete copy of Termtable or the requested terminal definition 
: wasn't defined there, then map to the global system copy. 
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BEGIN 
é9 PREV_AST_STATE = SSETAST (ENBFLG = K_OFf); ! disable ASTs 
a IF _ .GBL_SECTION_ADDR EQL 0 
a GBL_STATUS = MAP_GBL_SECTION (); 
0 IF .PREV_AST_STATE EQL SS$_WASSET 
i SSETAST (ENBFLG = K_ON); ! re-enable ASTs 
79 IF .GBL_SECTION_ADDR NEQ 0 
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kK 1 
RFACE_TERM TABLE = User Interface to Te 16-Sep-1984 01:33:4 AX-11 Bliss-32 V4.0-74 Pa 
_TERM_TABLE = Initialize terminal tabi 137800-1 384 93:70:08 USMGRTL-SRCISMGUSRTRM.B 231 at 
THEN 
BEGIN 
FOUND = SEARCH_FOR_TERM_DEF (.GBL_SECTION_ADDR, .P_TERM_NAME, 
TMP_TERM_DEF); 
et STATUS = SMG$_GBLSECMAP; 
END; 


+ 

: When we get here, we have looked in both the private and global copies 

! of Termtable.exe. If we failed to find the requested terminal definition, 
return an error. 


IF .FOUND NEQ K_MATCH 
THEN 


BEGIN 
i ee »PRIV_STATUS 
RETURN (SMG$_UNDTERNOP) 


ELS 
IF NOT .GBL_STATUS 
29 RETURN (SMG$_UNDTERNOS) 
RETURN (SMG$_UNDTERNAM) 
ELSE 
~-P_TERM_TABLE = .TMP_TERM_DEF; 
SMGSSNUMBER_PARAMETERS (); ! init expected # params for caps 
! for future get_term_data calls 
RETURN (.RET_STATUS); ' return success which also reveals 
! where we found the defintition 
END; ! end of routine SMGSINIT_TERM_TABLE 


E - User Interface to 
Te 


TITLE SMGSINTERFACE_TERM_TABLE SNGSINTERFACE TERM. TAB 


-IDENT \1-005\ 
-PSECT _SMGSDATA,NOEXE, PIC,2 
00000000 00000 GBL_SECTION ADDR: 
00000000 00004 PRIV. SECTION ADDR: 
00000000 00008 PRIV_SECTION ADDR END: 
00000000 0000C PRIV_SECTION CHANNEL : 
FD 00010 K_OPERAND: . 


.BY -3 3 
FC 00011 K_SUBSTITUTE: 


: | 
SINTERFACE_T SMGSINTERFACE_TERM TABLE = User Interface to Te 1Se 1984 01:33:4 AX=11 Bliss-32 V4.0-74 P 
3n888 SMGSINIT_TERM-TABLE = Initiatize terminal tabl 12-8 08-13be 94:73:38 SMGRTL.SRCISMGUSRTRM.B 2:1 ss 3 
FB 00012 K.ADD: ‘BYTE = : | 
FA $8018 K-SUBTRACT: 
“BYTE 6 P | 
F9 00014 K_MULTIPLY: | 
.BYTE <7 : 
FB 00015 K_DIVIDE: 
BYTE 3 : 
F7 00016 K_STORE:.BYTE - 3 
.EXTRN SMGSSNUMBER_PARAMETERS 
.EXTRN STRSCOPY DX; STRSCASE_BLIND_COMPARE 
-EXTRN SMG$_WRORUMARG, SMG$_TABID AIS 
-EXTRN SMGSUNDTERNAM, SMGS-UNDTERTYP 
-EXTRN SMGS"PRISECMAP, SMG$~GBLSECMAP 
-EXTRN SMGS-UNDTERNOP, SMG$~UNDTERNOS 
-EXTRN SMGS-INVTERTAB, SMG$_INVREQCOD 
EXTRN SMG$-FATERRLIB, SMGS—NO_ARGS 
-EXTRN SMGS$S ARAMS 
~EXTRN SYSSSETAST 
.PSECT _SMGSCODE,NOWRT, SHR, PIC,2 
01FC 00000 ENTRY SHGSINIT_TERM_TABLE, Save R2,R3,R4,R5,R6,- ; 0342 
58 000000006 00 9€ 00002 MOVAB SYSSSETAST, RB : 
57 00000000' EF 3 00009 MOV PRIV_SECTION_ADDR, R7 : 
5E 4 C2 00010 SUBL a4, SP 3 
54 01 DO 00013 MOVL #1. FOUND : 0390 
56 01 D0 00016 MOVL #1, PRIV_STATUS ; 
55 01 DO 00019 MOVL #1, GBL_STATUS ; 
52 01 DO b901¢ MOVL #1, RET STATUS ; 
02 6C 91 OOOTF CMPB sé AP), #2 : 0400 
08 13 00022 BEQL =s«1$ ; 
OVL | #SMG$_WRONUMARG, R : 
50 000000006 &F 0 900 4 MOV SMG$_WRONUMARG, RO 
7E D4 0002C 1$: CLRL = = (SP) + 0408 
68 gi FB OO02E CALLS #1, SYSSSETAST : 
5 0 pO 00031 MOVL RO, PREV_AST_STATE ; 
67 D5 00034 TSTL  PRIV_SECTIONTADDR + 0410 
08 12 000 BNEQ 2$ ; 
0000v CF 9 FB 0038 CALLS #0, MAP_PRIV_SECTION + 0412 
56 DO 00030 MOVL RO, PRIV_STATUS : 
09 3 D1 904 2s: CMPL § PREV_ASTSTATE, #9 + 0415 
12 4 BNEQ 3$ 3 
o1 DD 04 PUSHL #1 : 0417 
68 ee 47 CALLS #1, SYSSSETAST ; 
67 D5 O004A 3S: TSTL PRIV_SECTION_ADDR > 0424 
16 13 0004C EQL 40s 4$ ; 
SE DD 0004 PUSHL SP > 0430 
04 AC DD 0005 PUSHL P_TERM_NAME ; 
67 DD 00 PUSHL PRIV_SECTION_ADDR : 
0000v CF 9 FB 0 CALLS #3, SEARCH_FOR_TERM_DEF 3 
34 0 p O5A MOVL RO. FOU ; 
2 000000006 00 05D MOVAB SMG$_PRISECMAP, RET_STATUS ; 0432 
4 0 se 4$ TSTL F OUND 3 044 
B 13 00066 BEQL ; 
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m1 
SINTERFACE_T SMGSINTERFACE_TERM TABLE = User Interface to Te 16-Sep-1984 01:33:4 AX-11 Bliss-32 V4.0-74 Page 
3r808 MGSINIT_TERM"TABLE - Inittelize terminal tabl 12780871382 94:73:98 YOMGRTL SRC ISMGUSRTRM.B 2:1 . 3 
7E D4 00068 CLRL 0 =( SP) F 0466, 
68 Q1 F 0 A CALLS #1, SYSS$SETAST : 
9 D D MOVL RO. PREV_AST_STATE : 
FC ay p aur Ist BL_SECTION_ADDR + 0446 
0000v cE 0 FB 007 CALLS #0, MAP_GBL_SECTION + 0448 
5 ° DO OO07A MOVL RO, GBL_STATUS 5 
09 D1 0070 5$ CMPL § PREV_AST_STATE, #9 : 0450 
> Vz i BNEQ 6$ ; 
1 DD 000 PUSHL #1 + 0452 
58 1 FB 000 CALLS #1, SYSS$SETAST : 
FC OA? OD 0087 6$ TSTL gel SECTION_ADDR + 0454 
17 13 OOOBA EQL $ : 
SE DD 0008C PUSHL SP + 0457 
04 AC DD OO08E PUSHL P_TERM_NAME : 
FC A? DD 00091 PUSHL  GBL_SECTION.ADDR : 
0000v CF 03 FB 90094 CALLS #3, SEARCH_FOR_TERM_DEF ; 
54 50 pO 00099 MOVL RO, FOU : 
52 000000006 00 9 9009¢ MOVAB SMG$_GBLSECMAP, RET_STATUS + 0459 
54 D5 OOOAS 7$ TSTL FOUND + 0469 
1E 13 000A5 BEQL 10S F 
08 56 £8 OOOA7 BLBS § PRIV_STATUS, 8$ + 0472 
50 000000006 00 9E OOOAA MOVAB SMGS$"UNDTERNOP, RO + 0474 
04 00081 RET + 0476 
08 55 ES 00082 8$ BLBS § GBL_STATUS, 9$ : 
50 000000006 00 5E 90085 MOVAB SMGS$_UNDTERNOS, RO : 0478 
50 000000006 00 9€ 000B> 9$ MOVAB SMG$_UNDTERNAM, RO + 0480 
04 000°, RET + 0476 
08 BC 6E DO 000CS 108: MOVL  TMP_TERM_DEF, @P_TERM TABLE + 0483 
000000006 00 00 FB 900¢9 CALLS #0, SMGSSNUMBER_PARAMETERS + 0485 
50 52 BO 99000 MOVL §§RET_STATUS, RO ; 0488 


; Routine Size: 212 bytes, Routine Base: _SMGSCODE + 0000 


ust 
poten have been created by compiling TERATABLES TXT. The address 


¥ | 
SMGSINTERFACE_T SMGSINTERFACE_TERM_TABLE = User interface to Te 16-Se 4 01:3 AX-11 Bliss-32 V4.0-74 Page 11 

1 n605 SMGSINIT_TERM_TABLE_BY_TYPE = Init terminal def 12-80 8=138e 9y: 40; $9 SMGRTL.SRCJSMGUSRTRM.B32; 1 . (4) 

3 $6) 492 1 XSBITL "SMGSINIT_TERM_TABLE_BY_TYPE = Init terminal def address given type : 
; i§ 495 1 GLOBAL ROUTINE SMGSINTT_TERM_TABLE_BY_TYPE ( ° ” | ; 
; 0 494 1 P. TERM_TYPE ; 
: 421 495} P-TERM- TABLE | : 
: g 496 1 P-TERM-NAME § = ; 
: 497 1 !44 3 
; ¢ Bee ! FUNCTIONAL DESCRIPTION: : 
5 6 8209 1 i This routine points to a specific entry in the terminal cupey et Totes F 
3 7? 501 1! file, TERM ib th BE TERR TABLOC "3 searched first for a priva : 
H 8 R208 ii copy of TERMT ABLE.E d if this fails the rekatia. f definition file 3 
: 499 0503 1} Cobal section sMGSTERMTABLE) is used. EEX : 
> 431 0505 1! returned y this routine is used as an input to SMGSGET_ TERM_DATA, 3 
; $8 b208 : which fetches capability data. : 
; 3? 0508 1! This routine is similar to SMGSINIT_TERM_TABLE except that it : 
5 $2 F384 ! accepts a device type rather than a device name as input. : 
3 * Bat) : CALLING SEQUENCE: : 
3 39 $318 1} ret_status.wlc.v = SMGSINIT_TERM_TABLE_BY_TYPE r. Lh fo bia rb.r, : 
: 440 0514 1: TERM- TABLE .wa.r 3 
3 441 0515 1! # Ps _TERM_NAME .wt.dxJ) 3 
3; «44 0516 1: 3 
; 44 0517 1 | FORMAL PARAMETERS: ; 
: 444 0518 1: : 
3; «6445 0519 1! P_TERM_TYPE Device type of the terminal - must be : 
: 446 0520 1! - entry in TERMTABLE.EXE. (The device F 
3 447 0521 1! type can be obtained via a call to $GETDVIW. ) ; 
3 a pass ! This is the address of a signed byte. . 
; rt bese : P_TERM_TABLE Address of the table created : 
: $26 0526 1! P_TERM_NAME Optional descriptor to contain the name 3 
; #45 0527 1! associated with this device type : 
: 4454 0528 1! 3 
3; 455 8267 1 ! IMPLICIT INPUTS: : 
; 456 0530 1! eee : : 
3 4637 0531 1! Contents of general terminal capabilities file. 3 
: 458 b2eg 1 3 
: 459 0533 1 ' IMPLICIT OUTPUTS: : 
: 460 0534 1! : 
3; 461 8332 1 i NONE : 
: re 536 (1! F 
; 46 0537 1 ' COMPLETION STATUS: : 
3: 464 0538 1 | 3 
; 465 0539 1! SMG$_PRISECMAP success = definition found in private TERMTABLE : 
; 466 0540 1 | SMG$_GBLSECMAP success = definition found in global TERMTABLE 3 
: 467 541 1! SMG$_UNDTERTYP undefined terminal type : 
: 468 36 1/ SMG$_UNDTERNOP undefined terminal - no private termtable : 
3 ri +4 27 : SMG$_UNDTERNOS undefined terminal - no system termtable : 
3 «471 0845 1 | SIDE EFFECTS: 3 
On, 278 1: : 
: 47 0547 1! NONE 3 
3 474 0548 1 i- 3 


> 


+ 

: See if the requested terminal definition is in the private section. : ; 
! If this terminal svee number is Bopet tee but not in the private range, skip this 
ck the global ta 


and proceed to che le. 


IF .PRIV_SECTION_ADDR NEQ O AND 
(TERM. TYPE P 
THE 
BEGIN 
This routine will search the entire terminal index. 


FOUND = SEARCH_FOR_TERM_DEF_BY_TYPE (.PRIV_SECTION_ADDR 
TMP_TERM_DEF , TMP 


LSS K_PRIV_TYPE OR .TERM_TYPE GEQ 0) 


.TERM_TYPE, 
_TERM_NAME) ; 


RET_STATUS = SMG$_PRISECMAP; 
END; 
+ 

! If there was no private copy of Termtable or the requested terminal definition 
! wasn't defined there, then map to the global system copy. 
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MGSINTERFACE_T SMGSINTERFACE_TERM TABLE = User Interface to Te 1e-se “1984 01:33:4 AX-11 Bliss-32 V4.0-74 
e808 SMGSINIT_TERM_TABLE_BY_TYPE = init terminal def 12-80 8- 1986 94:73:68 SMGRTL. RCISMGUSRTRM.B 2;1 
475 49 BEGIN "| 
47 § 0 BUILTIN ‘| 
47 0551 NULLPARAMETER; Sh 
rh $8 g say FOUND INITIAL (1) ' fl indi def found 
: . ! flag to indicate term def foun - ] 
480 0554 TMP_TERM_ i ten. place to store def addr : § 
481 0555 TMP TERM~NAME : REF VECTOR C,BYTEJ, ! temp. place to store name addr . | 
48 0228 PREV_AST_STATE, ' retd by SSETAST to indicate ASTs 4 
48 055 ' previously enabled or disabled ef 
484 0558 PRIV_STATUS : INITIAL (1), ! status retd by MAP_PRIV_SECTION =) 
485 0559 GBL_STATUS : INITIAL (1), ! status retd by MAP_GBL_SECTION 7 
$86 0560 RET_STATUS : INITIAL (1): : 
48 0561 BIND =) 
488 056¢ TERM_TYPE = .P_TERM_TYPE : SIGNED BYTE; : § 
490 0564 SSMGSVALIDATE_ARGCOUNT (2,3); 7 
491 0565 i) 
49 0566 .P_TERM_TABLE = 0; ! init ae, 1 
49 0567 3 
494 0568 2 !+ : § 
495 0569 ! First we look for a private copy of TERMTABLE.EXE. If a 4 
496 0570 ! PRIV_SECTION_ADDR is already set, then we don't need to map ~ 
497 0571 ' the Section again. 3; § 
498 0372 l~ 4 
499 057 : 
300 bare PREV_AST_STATE = S$SETAST (ENBFLG = K_OFF); ! disable ASTs while setting addr : : 
02 0576 IF_.PRIV_SECTION_ADDR EQL 0 —) 
0 0577 THEN 2.4 
Be b278 PRIV_STATUS = MAP_PRIV_SECTION (); ! map priv section if possible 
0980 If ;PREV_AST_STATE EQL SS$_WASSET 
p26 SSETAST (ENBFLG = K_ON); ! re-enable ASTs 
058 
0585 
0586 
0587 
0588 
0589 
0590 
0591 
a 
59 
0594 
0595 
596 
59 
59 
5 
6 
6 
6 
6 
6 
6 
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SRESINTERFACE.1 SMGSINTERFACE_TERM_T AaLe - User Interface to Te 
1-00 INIT _TERM_T 


CE 1 
RM_TABLE_BY_TYPE = Init terminal def 1 


-P_TERM_TABLE = .TMP_TERM_DEF; ; eer 
' return addr of terminal definition 
IF NOT NULLPARAMETER (P_TERM_NAME) 


SMGSINIT_T 1 
; 3 ¢ 60 
: H 60 To prevent private and global Termtable definitions from having the same 
: 4 608 i terminal type numbers assigned, we er Ht private ones by -65. No 
3 Dae 0609 i need to check the global definition for a _ vate number 
3 $ peit | _Postttve types and negative types larger than or equal to K_PRIV_TYPE are ok. 
3 2 8 pels 
. Say 061 IF .FOUND NEQ K_MATCH AND 
; 540 0614 a. TYPE GEQ K_PRIV_TYPE 
> 541 0615 
; a6 0616 ENBEGIN 
: ¢ 0617 . 
H ate age PREV_AST_STATE = SSETAST (ENBFLG = K_OFF); ! disable ASTs 
> 546 0620 IF .GBL_SECTION_ADDR EQL 0 
3; 6547 8053 
; 2¢8 be5§ GBL_STATUS = MAP_GBL_SECTION (); 
3 229 bese ; IF .PREV_AST_STATE EQL SS$_WASSET 
3 226 $958 ; SSETAST (ENBFLG = K_ON); ! re-enable ASTs 
; «554 $658 3 IF .GBL_SECTION_ADDR NEQ 0 
s- 359 494 3 THEN 
3 3296 0630 4 BEGIN 
s 357 0631 4 FOUND = SEARCH_FOR_TERM_DEF_BY_TYPE (. at SECTION_ADDR, 
; 558 bos¢ 4 .TERM_TYPE, 
; 359 0635 4 TMP_TERM M_DEF, 
: 560 0634 4 TMP— ~TERM “NAME) ; 
s 36) 0635 4 RET_STATUS = SMG$_GBLSECMAP; 
; 562 0636 3 END; 
3 365 0637 2 END; 
; 564 0638 2 
; 565 0639 2 !+ 
; 566 0640 2 ! When we get here, we have looked in both the private and global copies 
3 Jor 0641 2 ! of Termtable.exe. If we faited to find the requested terminal definition, 
; 568 Bet¢ 2! return an error. 
; 569 064 in 
; 570 0644 
s Sri 0645 IF .FOUND NEQ K_MATCH 
3 276 0646 $ THEN 
s OF 0647 BEGIN 
3: 574 0648 ; IF NOT .PRIV_STATUS 
3 3f9 se 
; 278 goed 4 RETURN (SMG$_UNDTERNOP) 
; 578 be26 ; IF NOT .GBL_STATUS 
; 39 65 
; 580 $838 4 RETURN (SMG$_UNDTERNOS) 
; «581 655 3 ELSE 
; 286 2026 4 RETURN (SMG$_UNDTERNAM) 
; oe 657 3 
; : 658 ELSE 
; 659 BEGI 
; 5 660 
; 2 0661 
; 3 0662 


SUSAR 


2 
G-sep-1964 O1:354@  YANat Blisg-32 vé.0-742 
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SMGSINTERFACE_T SMGSINTERFACE_TERM_TABLE = User Interface to Te 16-Sep 4 AX-11 si s$-32 V4.0 Page 14 

St SMGSINIT_TERM_TABLE_BY_TYPE = Init terminal def 14-Sep 71982 9%: #3: $8 SMGRTL.S ST sAcuLRTOn. 8 2:1 . (4) 
; 589 8663 3 THEN ’ 
; $90 664 4 BEGIN ! return term name if requested ; 
; 591 B99? 4 LOCAL 3 
; 3 Rees ? TERM_NAME_DESC : BLOCK (8,BYTE); | ; 
: 837 0668 4 TERM_NAME _DESC [CDSC$B =DTYPE = DSCSK _DTYPE_T ; 
; 595 669 4 TERM_NAME_DESC [CDSCS$B-CLASSJ = DSCS$K-CLASS~S ; 
; 596 0670 4 TERM_NAME_DESC [DSCSW_ -CENGTH H] = .TMP-T TERM. ni 5 ; 
: ey 9671 4 TERM_NAME_DESC CDSCSA-POINTER] = TMP-TERM_NAME | : 
: 599 ed 4 STRSCOPY_DX (.P_TERM_NAME, TERM_NAME_DESC); : 
; 600 bees END; : 
; 601 675 END; 3 
3 O06 Bors 3 
: 60 067 SMGSSNUMBER_PARAMETERS (); ! init expected # params for caps $ 
3 one go78 i for future get_term_data calls ; 
: 606 0680 RETURN (.RET_STATUS); ! success indicating where we found | ; 
: 607 0681 i the definition | : 
; 609 $688 1 END; ! end of routine SMGSINIT_TERM_TABLE_BY_TYPE : 
01FC 00000 ENTRY Ue TERM_TABLE_BY_TYPE, Save R2,R3,R4,-; 0493 ; 
58 000000006 00 9€ 00002 MOVAB SvSss ETAST, RB : : 
57 000000G0' EF 9E 00009 MOVAB PRIV_ SECTION. ADDR, R7 ; : 
af 1 #¢ 60018 SUBL2 #16, SP F 3 
5 01 DO 0001 MOVL FOUND : 0549 : 
56 01 DO 00016 MOVL #1, PRIV_STATUS ; 3 
55 01 DO 00019 MOVL #1, GBL_STATUS ; : 
54 01 pO 0001C MOVL #1, RET-STATUS ; : 
50 6C 02 83 edt $uBB3 (APY, DIFF 7 0564 3 
01 50 91 00023 CMPB)Oé#OdFF, #1 : ; 
08 18 000 8 BLEQU 3 3 
50 00000000G 8F ry 009 : aoe #SMG$_WRONUMARG, RO 3 : 
08 BC D4 ti 1$: CLRL aP_TERM_TABLE : 0566 3 
E 04 000 CLRL - : 0574 ; 
2) bb S88 atu Ade BERESELASE ae 7 : 
29 b3 § B TSTL Prive SECTIONZADDR : 0576 : 
Ss 3 003D BNEQ 2$ ; 3 
0000v cr 0 FB 0003F CALLS #0. MAP_PRIV_SECTION : 0578 : 
6 d0 9 44 MOVL PRIV_STATUS : 3 
09 ‘ b 47 2%: CMPL pReviA AST~ ~STATES "9 : 0580 ; 
2 0004A BNEQ : 3 
1 dD 0004C PUSHL it ; 0582 : 
68 1 F 4E CALLS SYSSSETAST : ; 
67 D 31 3$: TSTL Priv’ SECTION_ADDR > 0591 : 
6 1 2 BEQL ; 5 
BF OS 04 BC 9 CMPB = @P_TERM_TYPE, #-65 : 0592 : 
19 0005A BLSS : : 
046 BC 95 0005C TSTB § @P_TERM_TYPE : : 


2 
Sh58 NTERFACE_T SASS INTERE ACE_TERM_ TABLE = User Interface to Te 16- $ep-1984 01:33:4 AX-11 Bliss-32 V4.0 
SMGSINIT_TERM-TABLE_BY_TYPE = Init terminal def 1 ~8ep-19 4 04:33:68 SMGRTL.SR AE isncuseionc B32;1 
1A 19 005F BLSS 5$ : | 
SE 0D 0 6 4$ PUSHL  5$P » 
08 AE OF PUSHAB TMP TERM DEF : | 
7E 4 BC 8 00066 CVTBL aP_TER PE. = 
DD 0006A PUSHL eRTV tigt 10NA . | 
0000v CF 4 FB 6¢ CALLS » SEARCH_F Nr Aoo TERM. DEF_BY_TYPE 3 | 
3 D 1 MOVL RO. FOU é 
4 000000006 9 74 MOVAB SMG$_PRISECMAP, RET_STATUS 3 
53D 7B 5$ TSTL FOUND : 
46 1 7D BEQL = «BS 3 1 
BF OS 04 BC 91 0007F CMPB @P_TERM_TYPE, #-65 21 
F 19 0 4 BLSS = «BS 3 1 
E D4 6 CLRL = (SP) 3 1 
68 gi FB 000 CALLS i, SYSSSETAST 7 1 
0 00 00088 MOVL PREV_AST_STATE 3 1 
FC «6A? «DS OO08E TSTL eat _SECTION_ADDR 7 1 
08 12 00091 BNEQ 6$~ 3 1 
cE 90 FB 0095 CALLS 40, MAP _GBL_SECTION 7 1 
5 0 pO 00098 MOVL RO STATUS ; 1 
09 32 D1 00098 6$ CMPL pat. aere “STATE, #9 3 1 
05 12 0009 BNEQ 3 1 
01 DD OOOA PUSHL i ; 1 
68 01 FB OO00A CALLS #1, SYS S$SETAST 3 1 
FC OA? OD S00A 7$ TSTL ga i_SECTION_ADDR ae 
1B 13 000A8 BEQL By 3 1 
5E DD OOOAA PUSHL SP 3 1 
08 AE 9F OOOAC PUSHAB TMP_TERM_D 3 1 
7E 04 BC 98 OOOAF CVTBL aP_TERM TYPE gs 71 
FC A? DD 00083 PUSHL GBC SECTION 31 
CF 04 FB 00086 CALLS , SEARCH. FOR. TERM. DEF _BY_TYPE 3 1 
53 50 pO 00088 MOVL FOUN 7 1 
54 000000006 09 9 9008 MOVAB ti 5 CBLSECHAP, RET_STATUS 3 1 
D5 000C5 8$: TSTL 3 1 
1— 1 b90¢ BEQL 
08 56 f 00¢9 BLBS PRIV_STATUS, 9$ 
50 000000006 00 3 20055 MOVAB SMGS"UNDTERNOP, RO 
08 55 8 0004 9$: BLBS §_ GBL_STATUS, 10$ 
50 000000006 00 ‘ 90007 MOVAB SMGS_UNDTERNOS, RO 
50 000000006 00 oe a00e4 10$: MOVAB SMG$_UNDTERNAM, RO 
08 BC 04 AE b0 pes 11$: MOVL | TMP_TERM_DEF, @P_TERM_TABLE 
03 6¢ 1 OoEC CMPB sé APY, #3 
1F EF BLSSU 
0c AC D 6 Fi TSTL  12(¢AP) 
1D 1 F4 BEQL 128 
A AE 010E 8F 8 iz) MOV) #270, rene NAME_DESC+ 2 
8 AE 0 BE Q OFC MOVZBW alMP m_RAME AURA AME _DESC 
6£ § 101 ADDL THE. TERR cllAne. TERM_NAME _DESC+4 
08 AE 9F 001 PUSHAB tEkn NARE. D 
6 00 © 05 PB oot CALLS STRECOP 
f3 09 p FB 138 12$: CALLS a° AGS SNURBE R _PARAME TERS 
pO Wa movL Ret Situs: 
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MGSINTERFACE_T SMGSINTERFACE TERM_TABLE - User Interface to Te 18-se 1984 01:33:4 AX-11 Bliss-32 V4.0-74 Page 17 
7n604 SMGSGET_TERM_BATA “= Get terminal data 1 73007138 93370508 SMGRTL.SRCISMGUSRIRM.B 231 2 (5) 
; 611 684 1 XSBITL ‘SMGSGET_TERM_DATA = Get terminal data’ 

3 ois 685 1 GLOBAL ROUTINE SMGSGET_TERM_DATA ( 
3 8) 6 § 1 P_TERM_TABLE, 
; 614 6 1 REQUEST CODE 
: 615 6 8 1 AX BUFFER LENGTH, 
3 $18 6 1 RETORN_LENGT 
: 61 690 1 BUFFER ADDRESS 
; 618 691 1 INPUT_ARG_VECTOR : REF VECTOR C,LONG] 
; 619 692 1 )= 
; 620 693 1 
; 621 0694 1 !++ 
; © ¢ begs 1 ! FUNCTIONAL DESCRIPTION: 
; 6 696 1! 
> 624 0697 1! This routine extracts the requested information from 
; 625 0698 1! the specified terminal table. The terminal table address must 
> 626 0699 1! have been obtained * a call to SMGSINIT_TERM_TABLE or 
3 os? 144! : SMGSINIT_TERM_TABLE_BY_TYPE prior to calling Ehis routine. 
3 668 144 1 ! CALLING SEQUENCE: 
; 6350 0703 1! 
; 631 0704 1! ret_status.wlc.v = SMGSGET_TERM_DATA (P_TERM_TABLE.ra.r, 
3 O36 0705 1! REQUEST CODE.rl.r, 
; oF 0706 1! MAX BUFFER_LENGTH.rl.r, 
> 634 0707 1! RETORN_LENGTH.wl.r, 
; 635 0708 1! BUFFER _ADDRESS.wa.r 
; 636 0709 1! C,INPUT_ARG_VECTOR.rl.rJ 
: 637 0710 1! 
: 638 0711 1 =! FORMAL PARAMETERS: 
; 639 orig 1! 
; 640 0715 1! P_TERM_TABLE Address of terminal capabilities table 
; 641 0714 1! for desired terminal type. (See 
; ong prt ! SMGSINIT_TERM_TABLE to obtain this address.) 
: 644 0717 1! REQUEST_CODE Longword constant of the form 
; 645 0718 1! SMG K_xy2 (defined in Digital-supplied 
; 646 0719 1! library). Specifies desired capability. 
: 647 0720 1! Xyz corresponds to a keyword in the terminal 
3 eee 144 : definition (for instance ANSI_CRT). 
; 650 $758 1: MAX_BUFFER_LENGTH Longword number of bytes of the buffer 
; 651 brSe £. in which the requested capability data will be 
: 636 0725 1! returned. Most capabilities will fit in 
; 65 0726 1! 20 byfes or less - you will probably want 
3 $26 87 f : to allocate a Little extra. 
: 636 0729 1! RETURN_LENGTH hongword length of the data returned. 
3; 6 0730 1! lt indicates how many bytes of the buffer are 
3 $28 4) : } actually used. 
; 660 7 g zB BUF FER_ADDRESS Longword address of the buffer in which 
: $6) , : ! to return the capability data. 
; £8 7 § 1} INPUT_ARG_VECTOR Optional argument ysed only for a 
: 664 7 1! variable’ capability. Address of a longword 
; 665 7 3 1! vector. The number of longwords which follow 
; 666 8 : % must be in the f rst longword. This vector 

; 66 740 1! is used with capability string containing 


SMGSINTERFACE_T SMGSINTERFACE_TERM_TABLE = User Interface to je 1 sf -1984 AX-11 Bliss-32 V4.0-7 
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; 668 741 #1! ! or 2%. You may provide the correct number of 

; 669 rg 1! values ~ be vee with each ! and % in the 

; 670 745 1! ng or it" may default all of the values. 

; 671 744 1! hgse T_TERM_DATA will supply a default value 

: ore 745 1! of 1. 

oe Be] 

: 675 748 { IMPLICIT INPUTS: 

: ort Bf 30 } ! Contents of system terminal capabilities file. 

: 679 752 1 | IMPLICIT OUTPUTS: 

; 680 7 1! 

Pio te ee 

: 683 ore | COMPLETION STATUS: 

: 685 758 1 SMG$_INVTERTAB invalid terminal table address 

; 686 0759 1! SMGS_ a invalid request code 

; ret Bree ' } SS$_NORMA success 

> 689 0768 1 | SIDE EFFECTS: 

; 690 0765 1! 

; 691 0764 1! NONE 

: 838 $768 2 BEGIN 

> 694 O76? BUILTIN 

3 o32 $544 M eercsbemaae nese, 

: 697 0770 DATA : REF VECTOR C,BYTE,SIGNED],! terminal data 

: o28 144 DATA_LENGTH; f Length of South data 

: 700 ae TERM_DEF -P_TERM_TABLE, E tart my terminal definition 

s 701 0774 TERM_ DEF _PTRS = TERA_ DEF : VECTOR “een 

;. re 0775 of data epigters 

s 70 0776 2 START_DEF_DATA = TERM_DEF_PTRS + "SAGE. CAP. PTRS_ 

3 re aeer ! start of actual data 

: 706 0779 SSMGSVALIDATE_ARGCOUNT (5, 6); 

: 8 oye 5 te 

: 709 404 i Validate that we have a valid TERMTABLE. The terminal 

: ay Ore i definition should contain an id in the first byte. 

: 71 785 

: a 0786 IF .TERM_DEF <0,8> NEQ SMGSK_TERM_DEF_ID 

3; 714 78 THEN 

s 715 788 RETURN (SMGS$_INVTERTAB); 

: 716 a4 

: 717 790 '¢ 

: at 44 Make sure this is a valid request code. 

: 720 79 

$ 731 794 IF ..REQUEST_CODE LSS SMGSK_MIN_REQUEST_CODE OR 

3 4 § ak a gi reouest. CODE GTR SMG$K— MAX “REQUEST— CODE 

: Si 79 RETURN (SMG$_INVREQCOD); 
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4 
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7 en aT 
: g 90 ; Find the requested terminal data. 
: 7 
3 f 08 »RETURN_LENGTH = 0; ! init 
: 7 é 05 IF .TERM_DEF_PTRS C..REQUEST_CODE] EQL 0 
3 £ Be THEN 
3 f ¢ fi RETURN (SS$_NORMAL) ; 
ie 6 09 DATA = .TERM_DEF_PTRS [..REQUEST_CODE] + TERM_DEF; 
a 10 ! offset + start Of data area 
; f : 9 \} DATA_LENGTH = .DATA (0); 
; 740 Ost§ IF .DATA_LENGTH EQL 0 
3 76 $818 RETURN (SS$_NORMAL) ; ! requested data not available 
Ho Beg. 
: oH O81 ! Branch on whether additional processing is required. 
: 747 0820 2 
: oe 83 1 a. GTR O 

3 750 08 : BEGIN ! static data - copy into user's buffer 
s 3} 0824 LOCAL 
: Pg bs 2 RET_LEN; 
; Cee 0837 RET_LEN = MIN (..MAX_BUFFER_LENGTH, .DATA_LENGTH); 
; P38 +14 i a RECUEST _CUSE EQL SMGSK_VMS_TERMINAL_NUMBER 
; 758 0831 4 SBIAS_TYPE_NUMBER (..P_TERM_TABLE, .DATA (2), .RET_LEN, .BUFFER_ADDRESS) 
: o3 oes 4 mae ! private numbers must be -65 fo -127 
; 761 0854 CHSMOVE (.RET_LEN, DATA [2], .BUFFER_ADDRESS); 
; res i Return Length to caller. 
: 765 0838 if .RET_LEN NEQ 0 
: 767 840 .RETURN_LENGTH = .RET_LEN; 
3 38 Bes D ' static data - copy into user's buffer 
: 270 bc8 ELSE 
; as O85 eee ! dynamic - additional processing needed 
: 7 Bi LOCAL_ARGS : VECTOR [10,LONG] INITIAL (REP 10 OF (1)), 
: 77 Reo KIND = .OATA (1); ! make this a longword for comparison 
ele Ae deve 
: Aad 26 Use either the defaults or the parameters passed by the caller. | 
: 781 Bea $CHECK_SUFFICIENT_USER_ARGS; 
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ae 5 33 
; i is ; iv. gkIND EQL SMGS$K_FAO_STRING : : 
; 5 28 ? BEGIN ! FAO processing : : 
, 60 4 i “process FAO string. 3 3 
; 788 61 4 ' 3 7 
; 789 pe6¢ 4 3 7 
; 790 Bae 4 STAT US. 3 3 
: 791 864 4 CONTROL sbst : BLOCK 8,8 116), i] 
: 2 dese 4 RETURN_DSC : BLOCK C8,6YTEJ; : 
: 794 08 4 CONTROL_DSC [DSC$B_DTYPE] = DSCSK_DTYPE_T : 1 
; 795 0868 4 CONTROL ~ “DSC CDSC$B-CLASS]_ = DSC$K-CLASS~S ; 1 
: 796 0869 4 CONTROL-DSC CDSCSWILENGTH H] = ABS T.DATAy + See 31 
; ra 9870 é CONTROL “pSC CDSCSATPOINTER] = DATA (2];~ : : 
; 799 087¢ 4 RETURN_DSC CDSCSB_DTYPE] = DSCS$K_DTYPE_T; : 1 
; 800 0873 4 RETU RN “DSC CDSC$B-CLASS) = DSCSK~CLASS"S; 3 
; 801 0874 4 RETURN-DSC CDSCSWULENGTH] = ..MAR BUFFER LENGTH; i. 
; Hi 154 ; RETURN_DSC CDSCSA_POINTER] = “BUFFER. ADDRESS: 7. 
3; 804 P bay? 4 FAO_STATUS = SFAOL (CTRSTR = CONTROL_DSC, OUTLEN = .RETURN LENGTH, 3 7 
; 805 0878 4 OUTBUF = RETURN_DSC, PRMLST = LOCAL_ARGS (0J); : 1 
: 806 0579 4 IF NOT .FAO_STATUS 33 
; 80 0880 4 3:1 
3 808 0881 4 RETURN (.FAO_STATUS); : 1 
; 809 088 4 21 
; 810 0883 4 END ! end of FAO processing 37 
3; 811 0884 4 37 
3 sig 0885 ELSE 37 
s §1 pees 3 7 
3; B14 088 IF .KIND EQL SMGS$K_ARITH_STRING 3 1 
: 6815 0888 THEN 3% 
; 816 0889 4 BEGIN ! arithmetic processing 3 7 
; 817 0890 4 LOCAL 3% 
3; 818 0891 4 : 1 
3; 819 0892 4 DECODED. LARITH_STRING : BLOCK (255,BYTEJ, 37 
; 820 0893 4 DECODED-LENGTA, 31 
; 821 0894 4 STATUS; $7 
; Bee 0895 4 31 
3; 82 089 2 IF NOT (STATUS = DECODE_ARITH_STRING (DATA C0}. 3 1 
: 824 089 LOCAL_ARGS (0), 3: 1 
3 ; 5 89 : DECODED _ARITH STRING, 3 7 
: § 89 DECODED“LENGTA) ) 31 
; 8 900 4 THEN 37 
; 828 9901 4 RETURN (.STATUS); 37 
3 4 902 4 37 
3; 830 903 4 RET_LEN = MIN (..MAX_BUFFER_LENGTH DECODED LENGTH); 31 
; 831 904 4 CHSMOVE (.RET_LEN, DECODED_ARITH_STRING, .BUFFER_ADDRESS); 31 
: 36 905 4 ! copy oe stuff"to user buffer 31 
3; 83 906 4 IF .RET_LEN NEQ 0 31 
3; «834 907 4 3 
3; 835 908 4 .RETURN_LENGTH = .RET_LEN; 31 
: $$ 909 4 ! return Length to caller = 7 
; 83 3319 4 END i end of arithmetic processing $1 
; 838 911 4 iy 
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ELSE 
RETURN (SMG$_FATERRLIB); ! unknown type code 
END; ! dynamic = additional processing needed 
RETURN (SS$_NORMAL); 
END; ! end of SMGSGET_TERM_DATA 
O1F2 .BLKB 
000000014 tte P.AAA: .LONG ¢r103 : 
.EXTRN SYSS$FAOL 
O7FC 00000 -ENTRY SMGSGET_TERM_DATA, Save R2,R3,R4,R5,R6,R7,- ; 0685 
5A 00000000' EF 9E 90002 MOVAB pei SECTION_ADDR, R10 : 
5E FEDO CE 9€ 0000 MOVAB =304TSP), SP : 
51 04 &C 000 MOVL. @P_TERM TABLE, R1 > 0773 
6c 95 é 001 SUBB3 «#5, (APY, DIFF : 0779 
01 0 91 0001 CMPB FF, : 
08 1B 00019 BLEQU : 
50 000000006 8F bo o0038 MOVL #SMG$_WRONUMARG, RO : 
89 «BF 61 $i $09 1$: CMPB Ss (R1), #137 + 0786 
08 13 00027 BEQL $ ; 
50 000000006 00 3 999 3 MOVAB SMG$_INVTERTAB, RO : 0788 
57 08 BC 00 90051 2$: MOVL § @REQUEST_CODE, R7 > 0794 
09 15 00035 BLEQ : 
00000294 BF 57 01 9003? CMPL R7, #660 : 0795 
08 15 0003 BLEQ 4 : 
50 000000006 00 3 9004 3$: MOVAB SMG$_INVREQCOD, RO ; 0797 
10 BC D4 00048 4s: CLRL § @RETURN_LENGTH > 0803 
6147 8 00048 TSTW (RID ER7I ; 0805 
55 1 000%E BEQL $ : 
58 6147 3¢ 0005 MOVZ2WL (R1)CR7], DATA * 0809 
58 51 0054 ADDL2 : : 
56 68 0097 CVTBL (DATA), DATA_LENGTH ; 0811 
49 13 OO05A BEQL 9$ : 0813 
4A 15 0005¢ BLEQ 108 F 0821 
50 0c 8 00 995 MOVL § @MAX_BUFFER_LENGTH, RO : 0827 
6 D : CMPL RO, BATA_LERGTH : 
15 00 BLEQ 3=s5$ : 
50 D 6 MOVL DATA_LENGTH, RO ; 
9 D 6A 5$: MOVL RQ, Rel LEN : 
000000E3 BF D1 $p CMPL R7, #227 : 0829 
. } 4 BNEQ © 7$ : 
6E 02 AB 9 76 CVTBL 2(DATA), BIAS_TYPE ; 0831 
6A D3 0007 Ist PRIV_SECTION_ADDR : 
6A 04 BC pi 7 CHPL @P_TERM_TABLE, PRIV_SECTION_ADDR ; 
02 as rH ° TSTB (DATA) : 
07 18 00087 BGEQ 6«-«6$ ; 
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6E 00000041 F 9 SUBL2 #65, BIAS_TYPE : 
16 «BC 6E 9 ; 3 6$: move RET_LEN, BIAS_TYPE, @BUFFER_ADDRESS F ease 
14 BC 02 a8 § 2 97 7$: MOVC3 RET_LEN, 2(DATA), @BUFFER_ADDRESS ; O88 
zs gp deat ste My 
10 BC 9 A MOVL RET LEN, @RETURN_LENGTH + 0840 
00 AS 9$: BRW $ 3; 0821 
D8 AD FF2B OCF : 10$:  MOVC3 #40, P.AAA, LOCAL_ARGS : 7 
3 01 OA AF CVTBL 1(DATA), KIND + 0849 
6 6¢ 9 B3 CMPB. sC(AP), «#6 : 
4 iF 0B BLSSU 148 : 
18 AC D B TSTL 4 (AP) : 
2F 1 BB BEOQL 4$ : 
18 BC d5 00080 TSTL | @INPUT_ARG_VECTOR : 
A 13 000¢ BEQL 14$ : 
52 0000000060047 9A 000C¢ MOVZBL SMGSS$NUM_PARAMS(R7], R2 : 
5 1 C Do} OOCA CMPL  @INPUT_ARG_VECTOR, R2 : 
13 000¢ BEM. «=—s«éd1:'8 : 
50 000000006 00 9€E 0000 MOVAB SMG$_NO_ARGS, RO : 
04 0000 RET : 
50 01 cE 0008 11$ MNEGL #1, CTR : 
0B 0D BRB 13§ : 
51 18 BC40 DE 0000D 128:  MOVAL @INPUT_ARG_VECTOR[CTR], R1 : 
D8 AD4O Al DO 000E MOVL  4(R1),~LOCAL_ARGSCCTR : 
50 52 F2 OOOES 13$: AOBLSS R2, CTR, 12$ ; 
FFFFFFFF © 8F 3 D1 O00E 14 CMPL KIND, #1 > 0856 
D 12 OOOF BNEG 16$ : 
D2 AD 010E BF 80 000F MOVW #270, CONTROL_DSC+2 : 0867 
36 D5 OOOFB TSTL Rg + 0869 
18 OOOFD BGEG 6=«-«15$ ; 
56 6 cE OOFF MNEGL R6, R6 : 
DO. = AD 6 BO 00102 15$:  MOVW R6. CONTROL_DSC 3 
D4 =D 02 A8 3E 01 MOVAB 2(R8), CONTROL _DSC+4 : 0870 
CA AD 010E 8F B80 00108 MOVW #270, RETURN DSC+ > 0872 
C8 AD OC BC BO 00111 MOVW @MAX BUFFER _CENGTH, RETURN_DSC ; 0874 
CC AD 14 AC 00 00116 MOVL  BUFFER_ADDRESS, RETURN_DSC?4 + 0875 
08 AD 9F O18 PUSHAB LOCAL ARGS : 0878 
C8 AD OF OO1IE PUSHAB RETURA_DSC F 
10 AC DD 00121 PUSHL RETURN LENGTH ; 
DO «AD «9F 00124 PUSHAB CONTROL ; 
000000006 00 04 FB 0 127 CALLS #4, SYSSFAOL ; 
46 50 Es E BLBS FAO_STATUS, 19% : 0879 
FFFFFFFE 8F 3 1 8 1 Q 16$: CMPL KIND, #-2 : 0887 
4 12 001 BNEG 18$ : 
04 AE OF 00138 PUSHAB DECODED_LENGTH > 0896 
OC AE 9F 001 F PUSHAB DECODED-ARITH_STRING F 
D8 AD 9F 0014 PUSHAB LOCAL_ARGS : 0897 
DD 00144 PUSHL D : 0896 
0000v CF 4 FB 0146 CALLS #4 DECODE ARITH_STRING F 
C 0 £9 00148 BLBC STATUS, 208 ; 
0 0c ¢ DO 0014 MOVL § @MAX_BUFFER_LENGTH, RO > 0903 
04 AE D1 4 CMPL RO, BDECODED-LENGTH : 
4 1 1 BLEQ : 
0 04 AE D o1 MOVL DECODED LENGTH, RO ; 
"3 50 DO 0015¢ 178: MOVL RO, RETZLEN ; 
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SMGSINTERFACE_T SMGSINTERFACE TERM_TABLE = User Interface to Te 1o-300°1386 9 33:4 AX-11 Bliss-32 v4.0 Page 33 $ 
1-00 SMGSGET_TERM_DATA “= Get terminal data 14-Sep-1984 13:10:0 SMGRTL.SRC JSMGUSRTRM. " 2:1 (5) 1 
14 «BC 08 AE 56 28 0015F MOVC3 RET_LEN, DECODED_ARITH_STRING, - 3 0904 
aby FF FER_ADDRESS : 
DS 00168 TSTL REIL LEN 3 0906 
BEQL 19$~ : 
10 BC 169 MOVL RET_LEN, @RETURN_LENGTH : see 
50 000000006 00 ® 1g 18$: MOVAB SMG$_FATERRLIB, RO + 0913 
50 1 0 7 19$: MOVL #1, RO : 9917 
17A 20$: RET : 0918 


; Routine Size: 379 bytes, Routine Base: _SMGSCODE + 021C 
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SINTERFACE_T SMGSINT 4 01:33:4 AX-11 Bliss-32 V4.0-74 Page 24 
e808 SMGSDEL_TERM_TABLE~ = Delete terminal table 12786871382 93:70:68 SHGRTL.SRCISMGUSRIRM.B 2:1 “ (3 ¢ 
> B47 919 1 XSBITL 'SMGSDEL_TERM_TABLE = Delete terminal table’ :] 
; re | GLOBAL ROUTINE SMGSDEL_TERM_TABLE = : ! 
; 850 9 ¢ 1 lee 2 
3 23 ; ? ! FUNCTIONAL DESCRIPTION: : ! 
; 38 > 5 1 } This routine terminates access to TERMTABLE.EXE. ‘ ! 
; 855 9 5 1! If a private My rma was used, then we created a $1 
3 $29 928 1! senperery section to map it into the user's virtual address 31 
3 S2 929 1! space. his routine will free up that virtual space so that 3 1 
3 $28 83 9 ! the user can re-use it. : } 
; 860 09 ¢ 1! If the system TERMTABLE.EXE was used, then we used the system 3 1 
; 861 09 1! global section, and we do not have to free any virtual address 3 1 
: se Oe space. In this case we simply return SS$_NORMAL. : 1 
; 864 0936 1! In both cases (temporary and global section), this call is 3 
; 865 0937 1! optional. Even for a temporary section, the virtual memory $1 
; 866 0938 1! would be automatically freed when the image terminated. 3 1 
; 867 0939 1! This routine is useful only in the case where a caller may 3 1 
; 868 0940 1! need to re-use the virtual address space. 3 1 
; 869 0941 1! 3 1 
; 870 bk 1 ! CALLING SEQUENCE: $1 
; 871 0943 1! s 
; 1h) 0944 1! ret_status.wlc.v = SMGSDEL_TERM_TABLE 3 1 
; 87 0945 1! 3 1 
3: 874 0946 1 ! FORMAL PARAMETERS: $1 
; 875 0947 1! 3 1 
: 876 0948 1! NONE 5s 1 
; 877 0949 1! 31 
; 878 0950 1 ! IMPLICIT INPUTS: 3 7 
3; 879 0951 1! 3 7 
; 880 0326 2 NONE a3 
3; «881 0953 1! 3 7 
g oe6 0954 1 ! IMPLICIT OUTPUTS: a1 
; 88 0955 1! 3 1 
3 884 0956 1! NONE 31 
3; 885 0957 1! 21 
; 886 0958 1 ! COMPLETION STATUS: 3 1 
3; 887 0959 1! s | 
; 888 0960 1! SS$_NORMAL 3 1 
; 889 0961 1! 3 1 
3; 890 308 1 ! SIDE EFFECTS: 3 | 
> 891 93 1! | 31 
; «89 964 1! NONE a) 
; 89 965 1 !<- 3} 
: B94 0966 BEGIN | 24 
: 895 0967 LOCAL 3) 
3; 896 0968 PREV_AST_STATE; | 3 | 
3; 897 0969 3 | 
3; 898 970 '¢ 3 | 
; 899 971 ! If the terminal definition came from the system global section, 3 | 
; 900 97 !' then we simply return. If the definition came from a private 3] 
3 it 8 ,_ temporary section, then we free up the virtual address space. | : 
; 90 975 | 31 

| 
| 
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H i oe PREV_AST_STATE = SSETAST (ENBFLG = K_OFF); ! disable ASTs 

: 90 978 IF .PRIV_SECTION_ADDR NEQ 0 

3 309 979 THEN ba 7 

; 908 0980 BEGIN ! free va - temp section 

: 909 baa) CAL 

; 910 one FREE ADDR : VECTOR (2), 

s 911 098 STATOS; 

5 316 gage 

; 985 FREE_ADDR fo, = .PRIV_SECTION_ADDR; 

>; 9146 0986 FREE_ADDR [1J = .PRIV_SECTION ADDR_END; 

; 915 0987 4 IF NOT (STATUS = SDELTVA (INABR = FREE_ADDR) ) 

; 916 0988 3 THEN 

; 917 0989 : RETURN (.STATUS); 

; 918 0990 

; 919 0991 4 IF NOT (STATUS = SDASSGN (CHAN = .PRIV_SECTION_CHANNEL) ) 

3 350 O338 3 THEN 

>; 921 099 RETURN (.STATUS);: 

: 922 0994 

; 923 0995 PRIV_SECTION_ADDR = 0; 

> 924 0996 3 PRIV_SECTION_CHANNEL = 0; : 

; 925 0997 2 ND; ! free va - temp section 

: 926 0998 2 

: 927 0999 2 IF .PREV_AST_STATE EQL SS$_WASSET 

: 928 1000 2 H 

; 929 1001 2 SSETAST (ENBFLG = K_ON); ! re-enable ASTs 

; 930 1002 2 

: 931 1003 2 RETURN (SS$_NORMAL); 

s Fae 1004 1 END; ! end of SMGSDEL_TERM_TABLE 


-EXTRN SYSS$DELTVA, SYSSDASSGN 


001¢ 00000 .ENTRY SMGSDEL_TERM_TABLE, Save R2.R3,R4 

54 000000006 00 9 00002 MOVAB SYS$SETAST, R4 
53 00000000° EF i 00009 MOV PRIV SECTION. ADDR, R3 
SE 08 C2 00010 SUBL2 #8, SP 

7E D4 00 ) CLRL. = = (§P) 
64 01 FB 00 CALLS i, SYSSSETAST 
52 50 pO 00018 MOVL PREV_AST_STATE 

63 D3 00 B TSTL Prive SECTION~ADDR 

29 13 0001D BEQL *'1$ 
6E 63 06 00 F MOVL PRIV. SECTION_ADDR, FREE_ADDR 

04 AE 04 A p 0 g MOVL § PRIV7SECTION“ADDR.END, FREE_ADDR+4 
7E 7C 00 CLRO = 
08 AE 9F 00029 PUSHAB FREE_ADDR 
000000006 00 Q FB 00 ¢ CALLS #3 SYSSDELTVA 
1F 9 E9 00 BLBC STATUS 
08 A3 DD 00036 PUSHL PRIV SECTION CHANNEL 
000000006 00 gi FB 0039 CALLS Sy YSSDASSCN 

12 E9 00 BLBC STATUS 4 

63 D4 0 CLRL PRIV. SECTION_ADDR 

AS D4 CLRL  PRIVTSECTION™ CHANNEL 

52 D1 VIAST_STATE, #9 

6 12 B 

1 DD D 
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i COMPLETION STATUS: 


status returned by SOPEN 
status returned by SCRMPSC 
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e808 _PRIV_SECTION -"Map private section Sep-1984 93; 3; $8 SMGRTLeS RC SmeuSR on B92: 31 st hie 
9 XSBTTL_"MAP_PRIV_SECTION = Map private section’ | 
4 ? ROUTINE MAP_PRIV-SECTION = 
937 144 | 
938 | FUNCTIONAL DESCRIPTION: 
940 ! This routine attem s to open a user's private copy of TERMTABLE.EXE. | 
941 ' If successful, TERMTABLE.EXE is aaneed into the user's virtual address 
ac8 space as a temporary section. 
964 ! CALLING SEQUENCE: 
ae8 ret_status.wic.v = MAP_PRIV_SECTION () 
948 i FORMAL PARAMETERS: 
949 ! 
950 ' NONE 
951 ! 
226 ! IMPLICIT INPUTS: 
95 ! 
954 ' NONE 
955 ! 
956 ! 
957 ' 
58 NONE 
! 
1 
' 
' 
! 
{ 
i] 
1 
! 
' 


i IMPLICIT OUTPUTS: 


BEEBE EE & FAWN AAI RNPYNINPYNIPOPINIDN 2 2 OO OO SS SS OOOO "eg 


=O OONOAUNE WD 0 OONOAUE WIN 0 OD NOUS WN OO ONAUE WN OOONOULS WI" OVONOu 


964 SS$_NORMAL 

965 ! 

966 ' SIDE EFFECTS: 

967 ! 

968 NONE 

969 aa 

970 

971 BEGIN 

97 

97 OWN 

974 

975 TABLE_NAME : VECTOR(C25,BYTE) 

ors INITIAL (BYTE (' TERMSTABLOC: TERMTABLE.EXE')); 
978 LOCAL 

979 REQ_ADDR : VECTOR (2) INITIAL (2x" 200° ,2x"200'), 

980 } mn nput address to $MGBLSC 
oa) ACTUAL_ADDR : VECTOR (2), etd address from $MGBLSC 
3 OPEN_STATU 


SECTION. evatus: 


'¢ 
i Initiatize some fields. This can't be done at Link time because 

i it would require a vectors which would make the PSECT read/write 
- which would prevent sharing in our shared image. 


PRIVATE ae : SFAB (FOP = UFO, FACE CSGET>s SHR=<GET,UPI>), 


ee ee ee ee ee ee ee ee Pee re Te Pe Te Pe ee Tee ee eee rere rere rere rere rere rere lrere rere rere rere rere rere Tere eee te 

e) 

o 
a a a a Bk kd dd dd dd ad dd dd dd dd dd EE 
CDOCSOOCOOCOCOCOCCOOCOC COCO O OOOO OOOCOCOCO COCO COO OOO OOOO OOOOOOOOOOCOOCOOOoOO Y> 


PAE MAMAAMNNIVINIt 


re 


oe 28 68 Lod 28d 28d 28 8d Od Oe od 2d ke 2k od 2d 2k oe 28s 28d oe 28k Bd 2k oe 28s oe 20k 28s 28d od 28d oe 2s 28k ote 28s 28s 288 od odd od od od 28d odd oe ods 28 


ee a a a 4 4 0 4 a 4 2 a 4 9 ss 9 = 9 9 — > as as ss = 9 9 as as 9 ss 2s 2» 9 4 4 4 4 4 4 4 4 


_-_ ee ee — — Hs 


SAGSINTERFACE_T SM smcsl 
-00 


Dz 
ee ad 
<m 


: 333 1 
3 Sor 1064 
5 : 2? 
; 336 1 8 
3 1068 
; 998 1 4 
; 999 1070 
; 1000 1071 
: 1001 1 Le 
; 1006 107 

: 100 1074 
3; 1004 P 1075 
: 1005 P 1976 
: 1006 P 107 

: 1007 1078 
; 1008 1079 
: 1009 1080 
; 1010 1081 
3; 1011 1086 
3 iste 108 

3; 101 1084 
3; 1014 1085 
3 1015 1086 
3: 1016 1087 
3 1017 1088 
; 1018 1089 
3; 1019 1090 
: 1020 1091 
: 1021 1036 
3 ose 109 

: 102 1094 


52 45 54 3A 43 4F 


ry 
Sans o- 


E 
N 
RIVA 
RIVA 


t Look i 
IF ( 
THEN 


=I AWWW NINN & & EWI nonorononornp 


4C 42 


RM_TABLE = User Interface to Te bese $ep-1984 01:33:4 AX-11 BLi 
-"Map private section 12-08-1382 94:73:68 SMGRTL” SR 


TE =< FABSL_FNAJ=TABLE_N 
TE_FABLFABSB_FNS =EACLOCAt LOW( TABLE NAME); 


n TERMSTABLOC for private copy of TERMTABLE.EXE. 
OPEN_STATUS = SOPEN (FAB = PRIVATE_FAB)) 
BEGIN 


“tous a private termtable. Map to it so we can determine 
a if the requested terminal is defined there. 


IF NOT (SECTION_STATUS = SCRMPSC CINADR = REQ ADDR 
CHA RIVATE FAB CFABSL_STVJ, 
FLAGS = SECS M_ERPR 
ia RETADR = ACTUAL vADDRS) 
RETURN (.SECTION_STATUS); 


PRIV_SECTION_ADDR = .ACTUAL ADDR | C0); 
save mapped addr 
PRIV_SECTION_ADDR_END = .ACTUAL -Aobt" ot 
save $n _addr 
PRIV_SECTION_CHANNEL = .PRIVATE at: EPABSL 
' save ont ber SDASSGN 


LSE 
RETURN (.OPEN_STATUS); 
RETURN (SS$_NORMAL); 
END; 


! end of routine MAP_PRIV_SECTION 


~-PSECT _SMGSDATA,NOEXE, 


00017 -BLKB 1 
41 54 246 4D 52 45 54 00018 TABLE_NAME: 


ss-32 V4.0-7 
C SHGUSRTRM. 3 2;1 


PIC,2 


eASCII \TERMSTABLOC: TERMTABLE .EXE\ 


45 58 45 2€ 45 4C 42 41 54 4D 00027 
~-PSECT _SMGSCODE,NOWRT, 


wv 
7 

a 
> 
wo 
. 

@ 
m 


o 
@ 


De ee ee | | 
LERSSeFLU=2SS 
ee 
-- 
4 
SOANVCCOO—COMWW 1 


SHR, PIC,2 


| 
| 


re 


, 3 
SPESINTERFACE1 SMGSINTERFACE_TERM_TABLE = User Interface to Te 16-Sep-19 
MAP _ E - 14-Sep-19 


E 
PRIV_SECTION 


Map private section 
0 40C 
40D 
40E 
4OF 
410 
414 
000 6 tie 
800000 90426 
0 8 4 
bite 
0000909 be 8 
0000 0042C 
8 042E 
0 0042F 
00000000 00430 
00000000 00434 
0000 90438 
00 0043A 
00 00438 
00000000 0043Cc 
007C 00000 
56 00000000" EF 9E 00002 
5E AQ AE YE 00009 
58 AE 0200 8F 3 0000D 
5C AE 0200 8F 3C 00013 
6E 91 AF 0050 8F 28 00019 
gf AE 66 43 00020 
4 AE 19 90 00024 
5E DD 00028 
000000006 00 01 FB O002A 
35 50 2 00031 
7E 7C 00034 
7E 7C 00036 
1C AE DD 00038 
7E 7C itd 
7E D4 Bp0 D 
00020000 oF 41 BOE 
738 ke SF 0004? 
F8 AD 99F OOO4A 
000000006 00 C Fe 004D 
12 O€ Baas 
EC A6 50 AE DO 00057 
FO Ab 54 AE DO 0005C 
F4 AG OC AE 00 00061 
50 01 »D 4 
04 0006 
; Routine Size: 106 bytes, Routine Base: _SMGSCODE + 0440 


MAP_PRIV_SECTION: 
“WORD 


¢ T3:70:68 — Pomete2SReSsmGuSRiAM 882: 1 


. 2 . 
oreo 
<ooooo~< 
AZZZZZ- 
MAAAGGAM 
SOOOCOSDOOOSOSOSOOSOOSCONCOO 


-EXTRN SYSSOPEN, SYSSCRMPSC 


Save R2,R3,R4 


R5,R6 
MOVAB TABLE_NAME, R6 
MOVAB -96( 


v -96(SP), § 
MOVZWL #512, REQ_ADDR 
MOVZWL #512, REQ-ADDR+4 
MOVC3 #80, P.AAS, PRIVATE_FAB 
OVAB TABLE_NAME. PRIVATE-FAB+44 
OVB #25, PRIVATE_FAB+S2 
PUSHL SP 
CALLS #1, SYSSOPEN 
BLBC OPEN STATUS, 1$ 
CLRO = = (SPJ 
CLRQ = = (SP) 
PUSHL PRIVATE_FAB+12 
CLROQ. = (SP) 
CLRL 5 (SP) 
PUSHL #131072 
CLRL. = (SP) 
PUSHAB ACTUAL_ADDR 
PUSHAB REQ_ADBR 
CALLS #127 SYSSCRMPSC 
BLBC SECTION STATUS, 1$ 
MOVL § ACTUAL_ADDR, PRIV SECTION ADDR 
MOVL § ACTUAL~ADDR#4, PRTV SECTION ADDR_END 
MOVL  PRIVATE_FAB+12, PRIV_SECTION_CHANNEL 


MOVL #1, RO 
RET 


$A  ——————————— 


snes NTERFACE_T SAS PRIVeee CE_TERM_TABLE = User Interface to Te 18-5e Sep-1 AX-11 Bliss-32 v4. P 
PRIV_SECTION -"Map private section =30071 382 9}: tf $8 SMGRTL.SRC Reisncusnian. 882, 31 — (3 


; 1024 1095 1 


re 


TD ee a a © 2 2 2 Ss 
ee er re er rr ee 


__—_—_- -—- ——_--- --—-—, 


NTERFACE_T Sst INTERE ALS TERM_TABLE - User Interface to Te 16-Sep-1984 33:4 AX-11 Bliss-32 V4.0-74 p 1 
sngst P_GBL_SECTION = Map tLobal section 16- sen 1944 04:33:08 SMGRTL.SRCJSMGUSRTRM.B32;1 m9 a 
SBTT 
Tl 


3: 1 1096 1% L_"MAP_GBL_SECTION - - Map Lobal section’ 

3 18 $ 1097 1 ROUTINE MAP_GBL-SECTION ° 

; 1098 1098 1 

; 10 1099 1 !+¢4 

: + » 1} 9 ! FUNCTIONAL DESCRIPTION: 

; 10 § 11 ¢ 1) This routine maps the nae section SMGSTERMTABLE into 

: + 1 i ! the caller's virtual address space. 

; 1035 1105 1 ' CALLING SEQUENCE: 

; 10 1138 1 / 

; 13 118% ! ret_status.wlc.v = MAP_GBL_SECTION () 

3; 1039 1109 1 i FORMAL PARAMETERS: 

: 1040 1110 1: 

3 1041 1111 1 NONE 

3 Hk Wi¢ 1! 

: 104 1113 1! IMPLICIT INPUTS: 

3 1044 1114 1: 

3: 1045 1115 1! NONE 

; 1968 11146 1! 

: 104 1117 «1 i IMPLICIT OUTPUTS: 

: 1048 1118 1! 

3 1049 1119 1: NONE 

3; 1050 1120 1: 

3; 1051 1121 1 COMPLETION STATUS: 

3 1336 11 ¢ 1 i 

; 105 11 1 status returned by S$MGBLSC 

3: 1054 1124 1 i SS$_NORMAL 

; 1055 1125 1! 

3; 1056 1126 1 i SIDE EFFECTS: 

3 1057 1127 1! 

; 1058 1128 1: NONE 

3; 1059 1162 1 i- 

: 1060 1130 1 

3; 1061 1131 BEGIN 

3 1066 1136 LOCAL 

3; 106 11 REQ_ADDR : VECTOR (2) INITIAL (2x" 200° ,%X'200'), 

3: 1064 1134 ! in nput address to SMGBLSC 

3; 1065 1135 ACTUAL_ADDR : VECTOR (2), ' retd address from $MGBLSC 

3 1066 1136 MAP_STATUS i status retd by SMGBLSC 

3 Het 1% : GBL_ NAME _DESC : BLOCK (8,BYTE); ! dese for global section name 

3 199? 1139 GBL_NAME =pEst pscse.. pryee = DSCSK ~pryre T; 

3; 1070 1140 GBL-NAME-DESC (CDSC$B-C = DSCSK-CLASS~ 

3; 1071 1141 GBL_NAME— DESC DScSu CENCTH = ICHARCOUNT< ( SMGSTERMTABLE" ); 

3 1976 1138 GBL-NAME-DESC CDSCSA_POINTER] = UPLIT ('SMGSTERMTABLE'); | 

3 1992 P 1144 MAP_STATUS = SMGBLSC ., = REQ_A 

> 1075 P 1145 RETADR = ACTU te att 

: 1976 e Hs FL hee "s “SECSH bescer’ + SECSM_ PERM + SECSM_EXPREG, 

3; 107 114 GSDNAM = GBL_RAME_DESC); 

3 1 8 1148 IF NOT .MAP_STATUS 

3; 107 1149 N 

; 80 113 RETURN .MAP_STATUS; 

; 1082 1152 GBL_SECTION_ADDR = .ACTUAL_ADDR (0); 
| 
| 
| 


SAGs NTERFACE_T SMGSINTERFACE_TERM_ TABLE = User Interface to Te 1b-se ~ge0n 1386 9: 73: 4g AX-11 Bliss-32 v4. 


P 
MAP_GBL_SECTION = Map global section -Sep- SMGRTL.SRC SheusRion B82; 31 ine (BS 


; 1083 1 
; 1084 1186 ; RETURN (SS$_NORMAL) ; 
; 1155 END; ! end of routine MAP_GBL_SECTION 


. 2 
00 00 45 4C 42 41 54 4D 52 45 54 24 47 4D 33 Gpcae P.AAC: . I \SMGSTERMTABLE\<0><0><0> 3 


.EXTRN SYSSMGBLSC 
0000 00000 MAP, GBL_SECTION: 


.WO Save nothing : 1097 
14 ¢2 9002 SUBL ; 
Oc AE 00 8F %3C 0000 MOVZWL # 1g. REQ_ADDR + 1131 
10 AE 00 F C 00008 MOVZWL #51 Bee - “ADDR+4 3 
010E0C0D BF dD oot4 PUSHL #1769467 3~ + 1141 
04 D6 «AF «(9E 00017 MOVAB AAC, GBL_NAME_DESC+4 : 1142 : 
7E 7¢ ooic CLROQ (SP) + 114 : 
08 AE OF IF PUSHAB ‘ NAME _DESC : : 
0002c00 F DD 000 PUSHL 022 ; : 
—E 04 00027 CLRL : F 
1C AE 9F 000 PUSHAB ACTUAL ADDR : 3 
28 AE 9F 0002C PUSHAB REQ. ADBR : : 
000000006 00 9 FB 900 F CALLS ~SYSSMGBL S¢ : 3 
08 0 £9 000 BLBC maps 1$ : 1148 : 
00000000' EF 08 AE DO 00039 MOVL RC TOAL AADDR, GBL_SECTION_ADDR : 1152 : 
0 01 DO 00041 MOVL #1, RO™ + 1154 
04 00044 18: RET + 1155 


; Routine Size: 69 bytes, Routine Base: _SMGSCODE + 04BC 


; 1086 1156 1 


3 ' 
SINTERFACE_T SMGSINTERFACE_TERM_ TABLE = User Interface to Te bse 1984 01:33:4 AX-11 Bliss-32 V4.0-74 Page 33. eer 
77604 SEARCH FOR TERR DEF - Search for terminal defin 358-1382 93:73:08 SMGRTL. RCISHGUSRTRM.B 231 . a 
3; 7 1157 1 SSBTTL "BeARcn coat RM_DEF = Search for terminal definition’ 
3% 11 1 ROUTINE SEARCH_FOR_TERM_DEF ( 
3 11 1 TERM_TAB_: REF BLOCK C,BYTE) 
: 1091 1160 1 TERM-NAME : REF BLOCK C,BYTEd, 
3; 1 § 11 1 RET_TERM_DEF d= 
3 1 1162 1 
3 3 116% 1 !4¢ 
3 | 5 1188 ! FUNCTIONAL DESCRIPTION: | 
3 1997 1198 1} This routine searches a Termtable.exe for a particular 
; 1038 132 : terminal definition. 
H 1199 1186 : CALLING SEQUENCE: 
; 1108 1171 1! found.wl.v = SEARCH_FOR_TERM_DEF (TERM_TAB.rl.v, 
: 110 1178 1! TERM_NAME .rt.dx, 
3 1104 1175 1! RET_TERM_DEF .wl.r) 
: 1105 1174 1! 
3 1108 1175 1 ! FORMAL PARAMETERS: 
3; 110 1328 1! 
3 Y's 4 Ea : TERM_TAB address where TERMTABLE.EXE starts 
; 1110 1179 1! TERM_NAME name of the terminal for which we 
317111 1180 1! will search 
: 1g at 1! 
3111 11 § 1: RET_TERM_DEF returned terminal definition address, 
3 1114 1185 1! if found 
3; 1115 1184 1! 
: 1116 1185 1°! IMPLICIT INPUTS: 
3 1117 1186 1} 
; 1118 1187 1! NONE 
3 1119 1188 1! 
: 1120 1189 1°! IMPLICIT OUTPUTS: 
; 1121 1190 1! 
3; 11 ¢ 1191 1! NONE 
311 1136 1! 
3: 1124 1195 1 ! COMPLETION STATUS: 
3; 1125 1194 1! 
; 1126 1195 1! 1 = terminal definition not found 
: 1127 1196 1! 0 = terminal definition was found 
3: 1128 1197 1! 
3: 1129 1198 1°! SIDE EFFECTS: 
<n 
3 11 g 1304 1 !-- 
3 M182 1 0¢ 1 
3 11 120 BEGIN 
; 113? 1204 LOCAL 
311 1205 FOUND : INITIAL (1), ! flag to indicate end of search 
3 1137 1 6 BLOCK_NUMBER : BYTE, 
3; 1138 120 INDEX_NAME_DESC : BLOCK (8 artp2 
> 1139 1208 INDEX"NAME-COUNT : REF VECTOR C,BYTE) 
> 1140 1209 INDEX"NAME~STRING : REF VECTOR C,BYTEd; 
3 1141 1210 
; 1166 1211 
3 114 1 \¢ '¢ , 
3 1144 121 ! Each TERMTABLE.EXE contains an index of all the terminals defined. 


MGSINTERFACE.T 4 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
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NTERFACE TERM_TABLE = User Interface to Te 16-Sep-1984 01:33:4 AX-11 Bliss-32 V4.0-74 
H_FOR_TERM_DEF = Search for terminal defin 12-800=1 382 93:73:68 SMGRTL.SRCJSMGUSRTRM.B52;1 
! 


Search the terminal index for the requested name. 
INDEX_NAME_COUNT = .TERM_TAB + .TERM_TAB CTTB_L_INDEX_OFFSETI; 

' point to Tst coun 

T point to Tst t 

' (address plus offset to get to 

! start of index = count is Ist byte) 
INDEX_NAME_STRING = .INDEX_NAME_COUNT + 1; 

! point to Ist name string in index 


a TERA_TAB CTTB_W_IDENT] NEQ 1 
RETURN (SMG$_TABID_MIS); ! Termtable Id Mismatch 


INDEX_NAME_DESC DSC$B_DTYPE) = DSC$K_DTYPE_T; 
INDEX-NAME-DESC CDSCSB-CLASS) = DSCSK~CLASS-S: 


WHILE .FOUND NEQ K_MATCH DO 
BEGIN 


'+ 
' Loop through all terminal names in the section 
index. Exit if we find a match. 


INDEX_NAME_DESC CDSCSA_POINTER] = INDEX_NAME_STRING £03; 
INDEX-NAME~DESC CDSCSWULENGTH] = .INDEX"NAME-COUNT [OJ; 


FOUND = STRSCASE_BLIND_COMPARE (.TERM_NAME, INDEX_NAME_DESC); 
IF <FOUND EQL K_MATCH 


EXITLOOP 
ELSE 


BEGIN 

INDEX_NAME_COUNT = INDEX_NAME_STRING ([O] + .INDEX_NAME_COUNT [0] + 1; 
: point past the previous string & block number 

FF 5 eh Oe CO COJ EQ. 0 


EXIT rn = no more terminals 


XITLOOP; ' retu 
INDEX_NAME_STRING = .INDEX_NAME_COUNT + 1; 
i ! point to fhext name string 


END; ! end of WHILE loop 


bah ad 


+ 

! If we found a match, use the block number stored with the index 
mene Se calculate the address of where the terminal definition 
' starts. 

te 


IF .FOUND EQL K_MATCH 
THEN 


BEGIN 
BLOCK_NUMBER = .(INDEX_NAME_STRING [CO] + .INDEX_NAME_COUNT [0)); | 
' block # follows counted name string 
.RET_TERM_DEF = .TERM_TAB + ((.BLOCK_NUMBER - 1) * 512); 
ND; ! end of search for requested name 


SAGS INTERFACE. 


Ag 


; Routine Size: 


3 
NTERFACE TERM TABLE = User Interface to Te 1$- $ep-1984 01:33:4 AX-11 Bliss-32 V4.0 
H_F fEnn DEF = Search for terminal defin 12-8 08=13he 93:73:68 SMGRTL.SRC SheUSRT ON. 4 2;1 


SM 
SEARCH_ 

1271 

1 te 

127 RETURN (.FOUND); 
1274 END; ! end of SEARCH_FOR_TERM_DEF 


003C 00000 SEARCH_FOR_TERM_ — 
WORD ave Re. oR3,R4,R5 


5 08 ¢ 9002 SUBL it 5 
1 D MOVL #1, FOUND 
3 4 AC 00 00008 MOVL. TERM_TAB, RS 
53 4 1 000¢ ADDL 4(R5), RS, INDEX _NAME_COUNT 
52 1 Ad SE 00011 MOVAB 1(R3), INDEX_NAME_STRING 
01 65 B1 00015 CMPW 3S s«(RS), n 
08 13 00018 BEQL «=s«s1$ 
51 000000006 00 4 OO1A MOVAB SMG$_TABID_MIS, R1 
50 51 D0 00021 MOVL 1, RO 
04 00024 RET 
02 AE 010€ er BO 00025 1$: MOVW #270 INDEX_NAME_DESC+2 
0 DS 00028 2$: TSTL UND 
29 13 00020 BEQL eS 
06 AE 5 DO O002F MOVL  § INDEX_NAME_STRING, INDEX_NAME_DESC+4 
54 63 9A 00 3 MOVZBL (INDE NAME COUNT} » R4 
6 54 B0 000 MOVW =soRG, INDEX. NAME _DESC 
5E DD 00039 PUSHL SP 
08 AC DD 00038 PUSHL TERM NAME 
000000006 00 O¢ FB ete) CALLS #2, STRSCASE_BLIND_COMPARE 
5 b3 0004 TSTL FOUND 
OF 1 90047 BEQL $ 
53 01 ake 3 0049 MOVAB as te NAME STRING], INDEX_NAME_COUNT 
63 95 0004E TSTB IND OUNT) 
06 13 00050 BEQL $ 
52 01 A3 9E 00052 MOVAB Tins), INDEX _NAME_STRING 
D3 11 00056 BRB 2$ 
50 05 00058 3$: TSTL FOUND 
15 12 0005 BNEG 4$ 
51 63 9A 0005C MOVZBL (INDEX _NAME_COUNT) 
54 6142 90 0005F MOVB (R1) CINDEX NAME Traine), BLOCK _NUMBER 
31 54 9A 00063 MOVZBL BLOCK_N UMBER , RT 
51 1 09 78 0066 ASHL #9, RT 
oc BC FEOO C145 3 OA MOVAB we to tRTERSI. @RET_TERM_DEF 
04 00071 4$ RET 


114 bytes, Routine Base: _SMGSCODE + 0501 


a 3 
SINTERFACE_T SMGSINTERFACE TERM TABLE = User Interface to Te 16-Sep-1984 01:33:4 AX-11 Bliss-32 V4.0-74 Pp 
e604 ARCH FOR TERMCDEF BYCTYPE Ss search for toon @ Jocgen-1986 $4:70509  FemGrte se ishcusntam 68251 a4 
; 1207 5 1 XSBTTL "SEARCH_FOR_TERM_DEF_BY_TYPE - h for term def gi { ' | 
08 § ] ROUTINE SEARCH~FOR-TERM_DEF=BY=1 Se eee 


TERM_TAB_: REF BLOCK C,BYTE), 

TERM_TYPE : SIGNED, 

RET_TER 

RET-TERM-NAME ) = 

+ 

FUNCTIONAL DESCRIPTION: 
This routine searches a Termtable.exe for a particular 
terminal definition. It will look in all terminal definitions 
for the given device type. 

CALLING SEQUENCE: 

found.wl.v = SEARCH_FOR_TERM_DEF_BY_TYPE pi RG ie 


RET_TERM_DEF .wl.r, 
RET_TERM_NAME .wl.r) 


FORMAL PARAMETERS: 
TERM_TAB address where TERMTABLE.EXE starts 


TERM_TYPE type of the terminal for which we 
$3 1 will search (signed longword value) 
2 RET_TERM_DEF returned terminal definition address, 
3 if found 


RET_TERM_NAME address of name associated with this device type 
(from the definition) 


IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION STATUS: 


One ee ae ere ae at a8 8 et 6 8 ee 8 8 he Oe 0 0 8 EEE SE SESE SE Sl Ss SsSsesasecacasasasacea 
+ 


ee ee ek a ae a es td wd 8 = 9 a ss 2 = = = a a = 1 


50 
$2 1 = terminal definition not found 
238 0 = terminal definition was found 
22 SIDE EFFECTS: 
56 NONE 
37 —_ 
8 
59 BEGIN 
60 LOCAL 
2 
2 


FOUND : INITIAL 
LOCAL TYPE : SI 


' ee to indicate end of search 
: worki 
CUR_TERM_DEF : 


: : ng terminal type 
VECTOR C,WORD], ! offset pointers are actually at 


aon 
wn 
Oo Ss 
Ons 
MONMIRPORONM ss es em es st ss tt sn nn a td St SH Ht SS SH 4 ) 4 & 


— _ 
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SINTERFACE_T SMGSINTERFACE TERM TABLE = User Interface to Te 16-Sep-1984 01:33:4 AX-11 Bliss-32 V4.0-74 Page 37 
e604 SEARCH_FOR_TERM_DEF_BY_TYPE = search for term d 132800- 138s 93:75;09 SMGRTL.SRCISMGUSRIRM.B 2;1 “ «135 
> 1264 1 ! beginning of definition 
: 1265 1 : INDEX_NAME_COUNT : REF VECTOR C Bytes . 
; 1266 1334 INDEX“NAME-STRING : REF VECTOR C,BYTEd; 
ns 
3} $9 1 § ! 
; 1270 1338 ! Each TERMTABLE. x contains an index of all the terminals defined. 
3; 1271 1339 ' Look at the definition of every terminal in the index, until we 
3; 1 Ie 1340 ! find one with the requested device type. 
‘Be qe gh 
: 1275 1 2g INDEX_NAME_COUNT = .TERM_TAB + .TERM_TAB CTTB_L_INDEX_OFFSETI; 
3 1276 1344 T point to Tst count 
3 1277 1345 ! (address plus offset to get to 
; 1278 1 ‘3 ! start of index = count is Ist byte) 
: 1279 134 INDEX_NAME_STRING = .INDEX_NAME_COUNT + 1; 
3 : 0 : re ! point to Ist name string in index 
; 1282 1369 IF .TERM_TAB CTTB_W_IDENT] NEQ 1 
: 128 1351 THEN 
3; 1284 1326 RETURN (SMG$_TABID_MIS); ! Termtable Id Mismatch 
3 158? 135 
3; 1286 1354 '¢ 
3: 1287 1355 ! If this definition is in a private section, the type number was biased. 
: 1288 1356 ! Since the unbiased number is what is actually in the file, remove the 
3 1289 1357 ! bias before doing any comparisons. 
; 1290 1358 !- 
3 1291 1323 
; 1638 1360 LOCAL_TYPE = .TERM_TYPE; 
; 1298 1361 SUNBIAS_TYPE_NUMBER (.TERM_TAB, LOCAL_TYPE); 
3 1295 1363 WHILE .FOUND NEQ K_MATCH DO 
> 1296 1308 BEGIN 
3: 1297 1365 3 OCAL 
3; 1298 1366 H BLOCK_NUMBER : BYTE, 
. +44 1367 DEF_DEVICE : REF VECTOR C,BYTE,SIGNED); 
$ 1200 1508 3 a ! points to term number cap 
; 1308 1399 : ' Loop through all terminal names in the section 
3 tt a. ; } index. Exit if we find a match. 
; 1305 1398 3 BLOCK_NUMBER = .(INDEX_NAME_STRING [OJ] + .INDEX_NAME_COUNT [0]); | 
3; 1306 1374 ! block # follows goynted name string 
3 1307 132? ; CUR_TERM_DEF = .TERM_TAB + ((.BLOCK_NUMBER = 1) * 512); 
3; 1308 1376 ! gt ef for this index entry 
3 1309 1377 DEF_DEVICE = .CUR_TERM_DEF CSMGSK_VMS_TERMINAL_NUMBER] + 
3; 1310 1378 -CUR_TERM_DEF; oe 
3 133 it t4 ! point to device type in definition 
3 :* 
3 1 ig 1381 ! Device type is stored as a signer lLongword. Skip past the 
3 ' 1 1336 ! size and type bytes to the actual data. 
s % \¢ 13B2 IF .DEF_DEVICE C2] EQL .LOCAL_TYPE 
3; 1351 1385 THEN 
3: 1318 1 36 4 BEGIN 
3 1319 1 4 4 FOUND = K_MATCH; 
; 1320 1388 4 EXITLOOP 
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END 
ELSE 


BEGI 
INDEX_NAME_COUNT = Ay NAME_STRING CO] + .INDEX_NAME_COUNT [0] + 
£ bass the previous string & block number 


Pa 8 SMGS 
9 485 1-00 


rp) 
om 


of a INDEX. NAME _COUNT ‘B9'e EQL 
EXITLOO rn = no oy Re eras 


INDEX-NANE- STRING = “INDEX NAME _COUN 
mime ! point to next hed string 


END; ! end of WHILE loop 
1+ 
If we found a match, set the return name and return definition address. 


IF .FOUND EQL K_MATCH 
THEN 


GIN 
~RET_TERM_DEF = ~CUR TERM. DEF; 
~RETITERM-NAME = .CUR_TERM_DEF + .CUR_TERM_DEF CSMGSK_NAMEJ; 
END: ! address of Counted string 


RETURN (.FOUND); 
END; 
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! end of SEARCH_FOR_TERM_DEF_BY_TYPE 


O1FC 00000 SEARCH ~FOR TERM. DEF st TYPE 


Save R2,R3, R4, R5,R6,R7,R8 : 

58 00000000" EF 9 90002 HOVAB PRIV SECTION_ADDR, R8 F 
57 01 pO 00009 MOVL #1, FOUND ; 
55 04 AC dO 0000C OVL TERM_TAB, RS : 
51 55 04 AS C1 90019 ADDL3 4(R5J, R5, INDEX_NAME_COUNT : 
50 01 Al 9E 0001 MOVAB 1(R1), INDEX_NAME_STRING 3 
01 65 B1 00019 CcMPW Ssé«(RS)),, #1 : 
0B 13 0001C BEQL 6=s«1$ : 

52 000000006 09 9 001 MOVAB SMG$_TABID_MIS, R2 : 
5 D MOVL  R2, RO ; 
04 000 RET : 

56 08 AC DO 00029 1$ MOVL §_TERM_TYPE, LOCAL_TYPE ; 
68 D 00 D TSTL §PRIVISECTION_ADDR : 

Op 1 F BEQL 2 ; 

58 D1 1 CMPL RS, PRIV_SECTION_ADDR : 
8 19 BLSS 28 : 

6 D3 TSTL OCAL_TYPE : 

04 1 BGEG ; : 

56 41 a6 9 A MOVAB (R6), LOCAL_TYPE ; 
; D 2$: TSTL FOUND : 

a 4 BEQL 4$ ; 

54 61 9A 0004 MOVZBL (INDEX_NAME_COUNT), R4 ; 
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; Routine Size: 


dD 4 
SER IMTERT ACE. SMGSINTERFACE_TERM_TABLE = User Interface to Te 19=3¢07 138% 94:33:46 AX-11 Oi fegeze V4.0-74 Page 40 
1-00 DECODE_ARITH_STRING = Decode arithmetic data 14-Sep-1984 13:10:0 SMGRTL.SRCJSMGUSRTRM.B32;1 (11) 
; 1351 1618 1 ZSBITL ‘DECODE_ARITH_STRING = Decode arithmetic data’ 
3; 1 ¢ 1419 1 ROUTINE DECODE_ARITH_STRING (ARITH_STRING : REF VECTOR C,BYTE), 
3} 1420 1 USER_ARGS : REF VECTOR 
: 1354 1421 1 DECODED_STRING : REF VECTOR C,BYTE), 
; 1355 14 ¢ 1 DECODED_LENGTH) = 
3; 3 S 14 1 
3; 1 1424 1 !44 
; : 28 1 5 ! FUNCTIONAL DESCRIPTION: 
; 1360 14 : 1! Arithmetic strings are stored as encoded data bytes. Codes 
: 1361 1428 1! are used to indicate where an aperens is, what operator to apply, 
3 : ¢ 1° 4 : etc. The general format is number, op, number, op, number, ... etc. 
: 1364 1431 1! In the midst of binary information, there may be text that must 
3 : 65 O38 } be included in the final string. 
: 1367 eee 1 ! CALLING SEQUENCE: 
: 1368 1435 1! 
3; 1369 1436 1! status.rl.v = DECODE_ARITH_STRING (ARITH_STRING.rl.r, 
; 1370 1437 1! USER_ARGS.rl.r, 
3; 1371 1438 1! DECOBED_STRING.wl.r 
; 137 1439 1 | DECODED-LENGTH.wl.r' 
3; 137 1440 1! 
3: 1374 1441 1! 
3; 1375 144 1 ! FORMAL PARAMETERS: 
; 1378 144 1! 
; iE 1a ee : ARITH_STRING.rl.r Address of string to decode 
; 1379 1446 1! USER_ARGS.rl.r Address of a vector containing 
3 13 1eet : } args provided by caller 
: 138 1449 1! DECODED_STRING.wl.r Address where decoded string 
3 137 et : } should be placed 
: 1385 1452 1! DECODED_LENGTH.wl.r Length of final string 
: 1386 1453 1! 
3; 1387 1454 1! IMPLICIT INPUTS: 
; 1388 1455 1! 
3; 1389 1456 1! NONE 
: 1390 1457 1! 
; 1391 145 1 ! IMPLICIT OUTPUTS: 
31 3 1459 1! 
: 139 1460 1! NONE 
3: 1394 1461 1! 
3: 1395 1606 1 ! COMPLETION STATUS: 
3 1 38 1465 1! 
: 139 1464 1! SUCCESS String was decoded 
: 1398 1465 1! FAILURE String could not be decoded 
3; 1399 1298 1! 
; 1400 1467 1 ! SIDE EFFECTS: 
3: 1401 1608 1! 
3 1606 169 1! NONE 
: 140 1470 1 !-- 
3 1404 1471 BEGIN 
3; 1405 1078 LOCAL 
: 1406 147 ACCUMULATOR : INITIAL (0), ! place to hold current result 
; 1407 1474 INDEX, ! index into arithmetic string 


4 
E - User Interface to Te 1b-sep-19 4 


SMGSINTERFACE_T SMGSINTERFACE TERM _TABL :33:4 AX-11 Bliss-32 V4.0-74 
m808 DECODE_ARITH_STRING = Decode arithmetic data 14-Sep-1984 93:73:68 SMGRTL. RCISMGUSRIRM.B 2;1 
1408 CURRENT BYTE : hey (0), ! pointer into return eering 
ARG_COUNT : INITIAL (0), } quaber of user args that have 
' been use 
ARITH_CAP_SIZE, ' Length of entire gaged it ity strin 
SEEN = INTTIAL (0); ! flag to indicate ist operand foun 


'¢ 
Initialize return Length. 


-DECODED_LENGTH = 0; 


1+ 
! Start with the 3rd byte of the gtr ing Cok toe ing over the size and 
e uld be 


: type of the entire string). This byte sho the data type of 
! the first item to process. It could be one of the following: 

: ositive number text 

: operand longword operand 

: k_<operator> add, subtract, multiply, divide 
k_store calculation complete, store result 


ARITH_CAP_SIZE = .ARITH_STRING CO) XOR &X*FFFFFFOO'; 
' sign extend byte 
ARITH_CAP_SIZE = ABS (.ARITH_CAP_SIZE); 
! get length (which is stored negative) 


INDEX = 2; ! start with 3rd byte 
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WHILE .INDEX LSS .ARITH_CAP_SIZE DO 
BEGIN 
OCAL 
DATA_TYPE : BYTE, ! code for kind of data to follow 
DATA_SIZE : BYTE, ! relevant only for string data 
TEMP : REF VECTOR; ' addr of operand awaiting operator 


DATA_TYPE = .ARITH_STRING C.INDEX); 
SELECTONE .DATA_TYPE OF 
SET 


C.K_OPERAND): ! Longword operand 
IF NOT .SEEN 
THEN 


at ut tt ot 


BEGIN ' Ist operant seen goes in accum 
chen OS ARITH_STRING C.INDEX + 2], ACCUMULATOR); 


END 
ELSE 
TEMP = ARITH_STRING C.INDEX + 2); ; 
' remember location of operand 
os = . INDEX + 6; ! get next code 
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C.K_SUBSTITUTE): ! substitute argument from user 
BEGIN 


F 4 
SMGSINTERFACE_T SMGSINTERFACE TERM TABLE = User Interface to Te 16-Sep- 73 AX-11 s$-32 V4.0 P 4 
m858 BTARITH STRING Decode erisntetie date iackepaione Sestb.6s | Lament tke ssheuMnt tn 6S2.1 age 445 


GIN add soup te + accumulator 
rete TeR = . TEMP (03 § ¢ ACCUMULA 
T ' don't use "Shis operand again 
INDEX = * INDEX + 1; ! next code 


oo 
Oo 


EC 
1465 LOCAL 
yr ARG NUMBER: 
68 ' Number vot towing substitution eyaeet will tell us 
9 i. which argument from the vector to use. 
71 ARG “aie +P = .ARITH_STRING C.INDEX+1); 
I Z Hot EEN 
74 4 BEGIN ! Ist_operand found goes into accum 
a ? pr age = USER _ARGS C.ARG_NUMBER-1]; 
8 4 END 
78 4 ELSE 
79 4 TEMP = USER_ARGS C. ARG _NUMBER=-1); 
80 4 | Femember Location of operand 
81 4 INDEX = . INDEX + 2; ' next code 
Hf END; 
8 5 
84 5 C.K_ADD): 
85 5 
86 5 
87 5 
88 5 
5 
5 
5 
5 
6 


C.K_ Spe TRACT os 
' subtract temp from accumulator 
ACCUMULATOR = ACCUMULATOR - TEMP (OJ; 
TEM ' don't reuse this operand 
INDEX” = * INDEX + 1; !' next code 


C.K MULTIPLY]: 
GIN 


iply fe Femp by accumulator 
pg otis ACCUMULATOR" y 
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INDEX = . INDEX + 1; next code 

7 END; 
04 7 
05 7 C.K_DIVIDE]: 
06 7 ! divide re by temp 
07 7 ACCUMULATOR = - ACCUMULATOR / ; TEMP 
08 7 TEMP = ' don't reuse this operand 
509 7 INDEX = .INDEX + 1; i cout code 
510 7 END; 
511 7 
21§ 7 - & STORE): 
51 8 ' store a calculation 
514 8 DECODED. STRING C.CURRENT "BYTE] = .ACCUMULATOR <0,8>; 
515 T store only as a byte 
516 CURRENT_BYTE = .CURRENT _BYTE + 1; 
517 ACCUMULATOR = 0; 
518 SEEN = 0; 
519 INDEX = . INDEX + 1; ' next code 
269 END; 


SAAS INTERFACE.1 SDSS IUTERE ACE TERM_TABLE = User Interface to Te 1S-se =3e0~ 138% 94:33:68 AX-11 Bliss-32 V4.0 Page $ 


DECODE_ARITH_STRING = Decode arithmetic data 14-Sep-1 SMGRTL.SRC SheUSRT RA. 3 2:1 a 
: 13 ¢ } 4 i COTHERWISE): ! plain vanilla text 
: 1524 1591 4 CHSMOVE (-ARITH STRING C. INDEX, ! size of text 
: 1525 1 3 4 H_ STRING Fed + 2) skip over type byte 
: 1326 1593 4 DECOD ODED. STRING Cnt RRENT 6yYTE)) 
31 1594 4 CURRENT_BYTE = .CURRENT_BYTE PARITY Hag ThING C. INDEX]; 
; 1528 1595 4 INDEX =". INDEX + .ARITH_STR 
3; 1529 1596 4 ! move esis carines count & type bytes 
5 1 0 1597 END; 
3; 1531 1598 TES; 
3; 15 ¢ 1599 
: i Z 1990 ; END; ! end of WHILE LOOP 
5 1382 1906 -DECODED_LENGTH = .CURRENT_BYTE; ! return length of string 
: 1537 1604 RETURN (SS$_NORMAL); 
: 1239 1808 § ! end of routi 1 
; : ; ARITH_STR 
 wFO#250 RRS end of routine DECODE_ARITH_STRING 
; Referenced LOCAL symbol TEMP is probably not initialized 


OFFC 00000 DECODE ge aia ee 


Save R2, 5B R4,R5,R6,R7,RB,RI,R10,R11 : 1419 
7E D4 00002 CLRL ACCUMULATOR + 1471 
58 04 00004 CLRL CURRENT MOYTE : 
50 04 00006 CLRL ARG_ COURT : 
5B D4 00008 CLRL = SEE : 
10 BC D4 OOO0A CLRL  @DECODED_LENGTH + 1485 
56 04 AC DO 0000D OVL  ARITH_STRING, R6 : 1497 
SA 66 9A 00011 MOV ZBL (Rg) “ARITH Cop SIZE ; 
SA FFFFFFOO 8F c¢ 00014 XORL2 56, ARITA_CAP_SIZE ; 
SA 1 t So0T8 SAE L ARITH CAP_SIZE, ARITH_CAP_SIZE Sees 
57 O¢ 5 09020 1$: MOVL . & care 3 1502 
SA D1 00023 2$: CMPL ee ARITH_CAP_SIZE > 1504 
03 19 000 6 BLSS $ F 
0085 31 00 BRW ; 
59 6746 9A 00028 3$ MOVZBL CINDER) RGI RI : 1511 
52 39 90 0002F OV TYP F 
00000000° EF é 91 6 : CMPB DATA, TYPE, K_OPERAND : 1516 
1 if BNEQ $ ; 
oc 58 f 0 BLBS SEEN 4$ : 1518 
02 A746 9F 000 PUSHAB 2(INDEX)CR6) : 1521 
6E 3 00 4 MOVL @(SP)+, ACCUMULATOR : 
58 : D 4 MOVL #1, SEEN : 152 
5 11 0004 BRB 38 > 151 
51 02 A746 9E 0004A 4S: MOV (IN NDEX)R6J, TEMP : 1 g 
57 06 f OO4F 5$: ADDL2 #6, IND : 1 
cf ? 68: BRB 2$ : 1 13 
00000000' EF 32 9 é $: CHPB DATALT YPE, K_SUBSTITUTE : 153 
1 A746 9A MOVZBL 1(INDEX)CR6], ARG_NUMBER : 153 
8 8 se28 DE 0080 MOVAL  @USER_ARGSCARG ANOABER RO : 1825 
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AX=11 Bliss-32 V4.0-74 
SMGRTL.SRCJSMGUSRTRM.B52;1 


© aecoeatencttinss 


TEMP 
x 


PE, K_SUBTRACT 
ACCUMULATOR 
PE, K_MULTIPLY 
ACCUMULATOR 


DATA_TYPE, K_DIVIDE 
(TEMP), ACCUMULATOR 
TEMP 


178 
DATA_TYPE, K_STORE 
18$ 


ACCUMULATOR, @DECODED_STRINGCCURRENT_BYTE) 
CURRENT BYTE 
ACCUMULATOR 


SE 
INDEX 


6 


R9, 2CINDEX)CR6], @DECODED_STRING- 
CCURRENT BYTE) 

R9, CURRENT_BYTE 

2(R9)LINDEXT, INDEX 


zo 


0s 
UR 
1, 


RENT 


r] 
oO 


-BYTE, @DECODED_LENGTH 
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OR cicets SMGSINTERFACE TERM TABLE = User Interface to Te 1b-se sen- 138% 9}: 73: 46 AX-11 Bliss-32 V4.0 "42. 4 mf 


DECODE_ARITH_STRI NG Decode arithmetic data 14-Sep-1 SMGRTL.SRC SMGUSRTRM. 8 
:} 4) 16 END ! end of module SMGSINTERFACE_TERM_TABLE 
1542 1808 : ELUDOM . - 
: PSECT SUMMARY 
; Name Bytes Attributes 
; _SMGSDATA 49 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, Pigments? 
; —SMGSCODE 1770 NOVEC;NOWRT, RD; EXE, SHR. LCL. REL. CON, PIC.ALIGN(2) 


Library Statistics 


ry Used: 173 pages 
Compilation Complete 


; eoeeee-= Symbols -<------ Pages Processing 
: File Total Loaded Percent Mapped Time 

> _$255$DUA28: SYSLIBISTARLET 3271 9776 46 0 581 00:01.0 
; ~$255$0UA28:CSMGRTIL.OBJ sett ie +b asst 36 0 6 : 00:00.1 
: SSSDUA 3: SMGRTL.OBJJSMGLIB.L32;1 469 1 0 3 00:00.4 
3 $255$DUA SMGRTL.OBJJSMGTPALIB.L32;1 

3 41 15 36 10 00:00.1 
; Information: 1 

3 Warnings: 0 

; Errors: 0 

3 COMMAND QUALIFIERS 

4 PLISS/ENECK CE FELD, INITIAL OPTIMIZE) /MOTRACE/L [S91 158: SNGUSRTRN/OB “08/8: SREUSRTAN MSRC$: SMGUSRTRM/UPDATE=(ENHS$ : SMGUSRTRM 
3: Siz ky poe 1627 cgge + 192 data bytes 

: Flapsed.i Time: Fe : 

3; Lines/CPU Min: g83 

3; Lexemes/CPU-Min: 180 


w¥k VAX/VMS V4.0 


